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FORTRAN IV COMPUTER PROGRAM FOR CALCULATION OF THERMODYNAMIC 
AND TRANSPORT PROPERTIES OF COMPLEX CHEMICAL SYSTEMS 
by Roger A. Svehla and Bonnie J. McBride 
Lewis Research Center 

SUMMARY 

A FORTRAN IV computer program for the calculation of the thermodynamic and 
transport properties of complex mixtures is described. This program (TRAN72) was 
developed by combining a program for the transport properties calculation with another 
program (CEC71), published in NASA SP-273, for the thermodynamic properties 
calculation. 

Equations for the calculation of the transport properties are given and explained. 
Equations for the calculation of the thermodynamic properties can be found in NASA 
SP-273. Input data, included with the program, are explained. 

The program has the capability of performing calculations such as (1) chemical equi- 
librium for assigned thermodynamic states, (2) theoretical rocket performance for both 
equilibrium and frozen compositions during expansion, (3) incident and reflected shock 
properties, and (4) Chapman -Jouguet detonation properties. Condensed species, as well 
as gaseous species, are considered in the thermodynamic calculations. However, only 
gaseous species are considered in the transport property calculations. 

The program is available for external distribution. Further information on obtaining 
the program may be had from the authors. 


INTRODUCTION 

Many processes in existence today involve complex chemical mixtures, frequently at 
high temperatures. Some of these mixtures result from combustion processes such as 
occur in automobiles, aircraft, and rockets. Others occur in processing equipment in 
the chemical, petroleum, and natural -gas industries. Research equipment, such as 
shock tubes, also involves high -temperature gas mixtures. 
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The need frequently arises for the thermodynamic and transport properties of these 
mixtures, particularly for use in heat- and mass -transfer calculations. Usually, the 
temperatures of the gases involved are quite high, too high for the properties to be meas- 
ured directly. Consequently, the properties are calculated. As a result, a number of 
different computer programs have been written for the property calculations. In general, 
most of the programs now in existence are designed to calculate either the thermody- 
namic properties or the transport properties, but not both. These programs are not re- 
viewed herein. References 1 to 4 are a starting point for a review of the programs for 
calculating the thermodynamic properties. Some programs have also been written for 
calculating the transport properties (refs. 5 to 9); however, each has its limitations. 
Some of these programs use approximate equations (refs. 5 to 8). One is limited in the 
choice of the intermolecular potential energy function (ref. 7). Two programs are de- 
signed primarily for ionized gases (refs. 8 and 9). 

We have developed a computer program which is designed to avoid these limita- 
tions. Rigorous equations are used in the transport calculations , and the transport cross 
sections are not restricted to any specific potential energy form. The program is a gen- 
eral one, capable of handling any chemical system. However, it does not include ioniza- 
tion, although it is capable of handling incipient ionization. Other important features of 
this program include simplicity of input, storage of all thermodynamic and transport 
property data on a master tape, and elimination of any need for advance knowledge of 
which species will be important. The program is a combination of the NASA Lewis Re- 
search Center Chemical Equilibrium Calculations Program (ref. 1) with additional rou- 
tines to do the transport property calculations. The program will handle a variety of 
problems. It has the capability for doing calculations such as (1) chemical equilibrium 
for assigned thermodynamic states (T,P), (H,P), (S,P), (T,V), (U,V), or (S,V); (2) 
theoretical rocket performance for both equilibrium and frozen compositions during ex- 
pansion; (3) incident and reflected shock properties; and (4) Chapman -Jouguet detonation 
properties. 

The thermodynamic properties which are tabulated include pressure, temperature, 
density, enthalpy, entropy, molecular weight, (8 In V/9 In P) T , (9 In V/9 In T) p , spe- 
cific heat at constant pressure, isentropic exponent, sonic velocity, and composition. 

The calculated transport properties are viscosity and thermal conductivity. Specific heat 
and thermal conductivity are calculated for both frozen and equilibrium conditions. 
Prandtl and Lewis numbers are included. Other properties which are characteristic of 
the type of problem being run are also calculated. (See the sample problems in 
appendix D. ) 

The present report does not cover the equations and numerical techniques used for 
the calculation of the thermodynamic properties. These are given in NASA SP-273 
(ref. 1), which discusses the details of the thermodynamic calculations. The present re- 
port does give the equations used in the transport calculations, however. These are 
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covered in the section TRANSPORT PROPERTY EQUATIONS. Sources of the transport 
data are given in the section SOURCES OF TRANSPORT AND RELAXATION DATA. 
Symbols are defined in appendix A. Variables, indices, and constants used in the trans- 
port subroutines are given in appendix B. A listing of the entire program is shown in 
appendix C, and sample problems are shown in appendix D. The sample problems were 
selected to illustrate many of the various capabilities of the program. Flow charts of 
some routines are included. 


COMPUTER PROGRAM 

The TRAN72 computer program was written in FORTRAN IV. At the Lewis Re- 
search Center it was checked out on an IBM 709411/7044 Direct Couple System. It has 
been used to generate both thermodynamic and transport properties of a number of chem- 
ical systems for internal use at Lewis. 

The source program is available to other organizations. Thermodynamic and trans- 
port data are provided with the program. However, these data are updated periodically; 
as a result, the answers for the sample problems in appendix D may change somewhat 
from time to time. 

Further information on obtaining the program may be had from the authors. 


ASSUMPTIONS AND CAPABILITIES 

The program is designed to provide both thermodynamic and transport properties for 
a wide range of scientific and engineering applications and for a range of independent var- 
iables. Thermodynamic data for a large number of ideal gases and condensed species 
are provided with the program for a temperature range of 300 to 5000 K. Transport data 
are provided over a wider range in many cases. See the section SOURCES OF TRANS- 
PORT AND RELAXATION DATA for the temperature range for each interaction. 

The range of applicability of the thermodynamic calculations is approximately de - 
scribed by the limits of applicability of the ideal-gas law. A reduced-state plot of the 
thermodynamic properties might give the user an idea of the limits of temperature and 
pressure. The lower limit for temperature in the transport calculations occurs when 
ternary and higher order molecular collisions become important. This also defines the 
upper pressure limit for the transport property calculations. The upper limit for tem- 
perature occurs when ionization becomes appreciable. However, incipient ionization can 
be included in the calculations. But, for increasing ionization, higher approximations 
are needed in the transport calculations (refs. 10 and 11). Additional comments on this 
may be found in the discussion of the transport property equations. The lower pressure 
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limit is given by the onset of the free molecular flow regime, which occurs when the 
mean -free -path length is of the same order of magnitude as the dimensions of the con- 
tainer. Under these conditions the equations for the transport properties are no longer 
applicable. 

In the computation of the thermodynamic properties the NASA Lewis Research 
Center CEC71 program (ref. 1) is used. The usual equations for the conservation of 
mass, momentum, and energy are applied (ref. 1, eqs. (93) to (95)) and the ideal -gas 
law is assumed. The free energy is minimized by using a Newton -Raphson iteration 
technique. Composition and properties are calculated for equilibrium conditions and, 
for some situations, for frozen conditions (sometimes called nonreacting). The effects 
of chemical kinetics, or finite reaction rates, are not included. TRAN72 handles the 
same types of problems as does CEC71, including normal shock waves, Chapman- 
Jouguet detonations, rocket expansion problems, and properties at assigned thermody- 
namic states. The additional assumptions for each type of problem are as follows: 

(1) Shock waves are of negligible thickness and normal to the direction of flow. One- 
dimensional flow is assumed. 

(2) For Chapman-Jouguet detonations the Mach number of the wave front, based on 
the speed of sound in the burned gas, is unity. The assumptions mentioned previously 
for shock waves also apply. 

(3) For rocket combustion problems, it is assumed that there is complete mixing in 
the chamber, adiabatic combustion at constant pressure, isentropic expansion with com- 
plete mixing, and frictionless one -dimensional flow. It is also assumed that the chamber 
is large enough that the velocity in the chamber is negligible. 

Because of storage limitations on the IBM 7094, the maximum allowable number of 
species is 100 and the maximum number of elements is 10. This applies to the thermo- 
dynamic property calculations and includes gases, liquids, and solids. In doing the 
transport calculations, no more than 20 of the species are used. First the composition 
obtained from the thermodynamic calculations is searched for the 20 gaseous species 
with the largest concentrations. However, all gaseous species with mole fractions of 

17 

less than 10 are omitted. Then this gaseous composition is normalized by summing 
the concentrations of these 20 species and dividing each concentration by the sum. The 
mole fractions obtained by this normalization procedure are the ones used in the trans- 
port property calculations. 


DESCRIPTION OF PROGRAM INPUT 

The procedure for operating the program is relatively simple and is almost identical 
to that for operating the CEC71 program (ref. 1). 
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The input specifies the type of problem to be run, the chemical system of interest, 
the mixture ratio, and the range of variables. Considerable flexibility is available in 
specifying the variables. For example, in a rocket combustion problem, nozzle expan- 
sion points can be specified as pressure ratios, area ratios, or a combination of both. 

In addition, a number of options are available, such as the following: 

(1) The calculated thermodynamic and transport properties may be obtained on 
punched cards, as well as printed output. 

(2) For rocket and shock problems, both equilibrium and frozen properties are 
available. In particular, for rocket expansion problems, freezing can be made to occur 
at the chamber, the throat, or any supersonic point in the nozzle. For this type of prob- 
lem, equilibrium flow is assumed from the chamber to a previously designated station in 
the nozzle. After that station is reached, the composition is frozen. 

(3) Input can be specified in a number of different units. For instance, pressure can 
be given in mm Hg, atmospheres, psia, or newtons/meter . 

(4) Species may be omitted from consideration in the calculations through the use of 
OMIT cards. Also, certain condensed phases may be included in the initial composition 
through the use of INSERT cards. Otherwise, only gases are considered initially, which 
may lead to convergence difficulties. 

(5) Thermodynamic property calculations can be obtained without including transport 
property calculations. If this option is used, the program is essentially the same as the 
CEC71 program. The opposite is not possible. Transport properties cannot be calcu- 
lated without first doing the thermodynamic property calculations, since the results of 
the thermodynamic calculations are needed in the transport calculations. 

The input data are discussed under four categories. Three of the categories are re- 
quired and one is optional. The three required categories and the code names by which 
they are referred to herein are 

(1) Library of thermodynamic and transport data for reaction products 

(THERMO and TRANSPORT data library) 

(2) Data pertaining to reactants (REACTANTS cards) 

(3) Namelist data, which include the type of problem, required schedules, and 

options (NAMELISTS input) 

The optional category of data is the list of chemical formulas of species which are 
singled out for special purposes (OMIT and INSERT cards). 

Each category of data is discussed in this report. Many of the details are summa- 
rized in tables I to VI. Both input and output for 10 sample cases are given in appen- 
dix D. These cases are identified by the numbers 51, 52, 122, 123, 679, 950, 1207, 
1565, 5612, and 6666. The order of the input is indicated in table n. 
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THERMO and TRANSPORT Data Library 


A library of thermodynamic and transport data is included with each program dis- 
tributed. The thermodynamic data for reaction products are in the functional form dis- 
cussed in the section THERMODYNAMIC DATA. The transport data are in a tabular 
form. The order and format of the THERMO and TRANSPORT data are detailed in 
table I. 

THERMO and TRANSPORT data may be read either from cards or from tape. If the 
data are read from cards, the program will write these data on logical tape 4. However, 
a permanent tape or disk containing the data may be made during any rim by using the re- 
quired type of control cards preceding the operating deck. When the data are read from 
cards, the data are preceded by a code card which has the word THERMO punched in col- 
umns 1 to 6. The sample cases in appendix D assume a permanent tape is available. 
Thus, the THERMO code card and the data are omitted and the input data all start with 
the REACTANTS cards described in the next section. When data for various species are 
added, removed, or changed on the tape, the whole set of THERMO and TRANSPORT 
data cards must be included in the input for making a new tape. 

These TRANSPORT data follow immediately after the END card for the THERMO 
data. No general identification card is needed to indicate the beginning: of the TRANS- 
PORT data. 

During a computer run, the appropriate reaction -product data consistent with each 
new set of REACTANTS cards will be automatically selected from the data on tape 4 and 
stored in core. 


REACTANTS Cards 

This set of cards is required for all problems. The first card in the set contains 
the word REACTANTS punched in card columns 1 to 9. The last card in the set is blank. 
In between the first and last cards may be any number of cards to a maximum of 15, one 
for each reactant species being considered. The cards for each reactant must give the 
chemical formula and the relative amount of the reactant. For some problems, enthalpy 
values are required. The format and contents of the cards are summarized in table m. 
A list of some REACTANTS cards is given in table IV. 

Relative amounts of reactants . - The relative amounts of reactants may be specified 
in several ways. They may be specified in terms of moles, mole fraction, or mole per- 
cent (by keypunching M in card column 53) or in terms of weight, weight fraction, or 
weight percent (blank in column 53). For example, in appendix E, cases 679 and 1207 
specify reactants in terms of moles and case 51 specifies them in terms of weight. 
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For these cases, the relative amounts of the reactants are completely specified by 
the values on the REACTANTS cards. However, there are optional variables which may 
be set in namelist INPT2 that indicate relative amounts of total fuel to total oxidants. 

(See table V and section NAMELISTS input. ) For this situation, each reactant must be 
specified as a fuel or an oxidizer by keypunching an F or O, respectively, in column 72 
of the REACTANTS card. The amounts given on the REACTANTS cards are relative to 
total fuel or total oxidant rather than to total reactant. 

Tables V, VI, and VII describe the namelists. Referring to table V, there are four 
options in INPT2 for indicating relative amounts of total fuel to total oxidant. They 
include 

(1) Equivalence ratio, r (ERATIO is TRUE) 

(2) Oxidant -to -fuel weight ratio, O/F (OF is TRUE) 

(3) Fuel percent by weight, %F (FPCT is TRUE) 

(4) Fuel -to -air or fuel -to -oxidant weight ratio, F/A (FA is TRUE) 

For each option, the values are given in the MIX array of INPT2. This feature is illus- 
trated by cases 52, 122, 950, 5612, and 6666 in appendix D. Cases 52 and 950 show 
where ERATIO is TRUE (ERATIO = T), and the reactants are identified as fuel or oxidant 
in card column 72. Since these cases involve just one fuel and one oxidant, the amounts 
of each (as given in columns 46 to 52) are shown as 100. This means that the oxidizer is 
100 percent of the total oxidizers and the fuel is 100 percent of the total fuels. Cases 
122 and 5612 are examples which have more than one fuel. Case 122 shows that each 
fuel is 50 percent (by weight) of the total fuels and the one oxidizer is 100 percent of the 
total oxidizer. 

The purpose of the previous namelist variables is to permit using one set of reactant 
cards with any number of values (maximum, 15) of a variable. Case 950, for example, 
specifies three values of equivalence ratio (ERATIO = T). 

Reactant enthalpy . - Assigned enthalpy values for initial conditions are required for 
assigned enthalpy and pressure (HP), rocket (RKT), detonation (DETN), and shock 
(SHOCK) problems. An assigned internal energy is required for the assigned internal 
energy and volume (UV) problem. These assigned values for the total reactant are cal- 
culated automatically by the program from the enthalpies or internal energies of the in- 
dividual reactants. The enthalpy values for the individual reactants are either key- 
punched on the REACTANTS cards or calculated from the THERMO data. The choice 
varies according to the type of problem as follows: 

(1) RKT, UV, and HP problems: Enthalpies or internal energies are taken from the 
REACTANTS cards unless zeros are punched in card columns 37 and 38. For each 
REACTANTS card with the ”00” code, an enthalpy will be calculated for the species from 
the THERMO data for the temperature given in card columns 64 to 71. See MgO(s) in 
case 51, appendix D. 
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(2) SHOCK problems: Enthalpies for all the reactants are calculated from the 
THERMO data for the temperatures in the T schedule of namelist INPT2 (table V). If 
enthalpy values are punched in card columns 64 to 71 (table HI), they will be ignored. It 
is not necessary to punch zeros in card columns 37 and 38. 

(3) DETN problems: If no T schedule is given in namelist INPT2, the option for 
calculating reactant enthalpies is the same as for RKT, UV, and HP problems. How- 
ever, if a T schedule is given in INPT2, the enthalpies will be calculated from the 
THERMO data for the temperatures in the T schedule, the same as for the SHOCK 
problem. 

When the program is calculating the individual reactant enthalpy or internal energy 
values from the THERMO data, the following two conditions are required: 

(1) The reactant must also be one of the species in the set of THERMO data. For 
example, NH^(g) is in the set of THERMO data butNHg(Z)is not. Therefore, if NHg(g) 
is used as a reactant, its enthalpy could be calculated automatically but that of NHg(£) 
could not be. 

(2) The temperature T must be in the range T^ qw / 1. 2 ^ T ^ ^high x 2, where 

Tiow to is the temperature range of the THERMO data. 


NAMELISTS Input 

As indicated in table E, the NAMELISTS code card precedes the NAMELISTS input. 
The card has the word NAMELISTS punched in card columns 1 to 9. All problems re- 
quire an INPT2 input. Rocket and shock problems each require an additional set, namely 
RKTINP or SHKINP. The additional set simply follows INPT2 directly. 

The variables in each namelist are listed in tables E, V, VI, and VE. Table E indi- 
cates which variables are required and which are optional for the various types of prob- 
lems. Tables V, VI, and VE give a brief definition of each variable. Some additional 
information about some of these variables follows: 

Pressure units . - The program assumes the pressure in the P schedule to be in 
units of atmospheres unless either PSIA = T, NSQM = T, or MMHG = T. 

Relative amounts of fuel (or fuels) and oxidizer (or oxidizers) . - These quantities 
maybe specified by assigning 1 to 15 values for either O/F, %F, F/A, or r. E no 
value is assigned for any of these options, the program assumes the relative amounts of 
fuel (or fuels) and oxidizer (or oxidizers) to be those specified on the REACTANTS cards. 
(See discussion in section REACTANTS Cards.) 

Printing mole fractions of trace species. - The program normally prints only the 
■ ' "" ‘ £* 

compositions of those species with mole fractions greater than 5x10 in F-format for 
all problems except SHOCK. The TRACE option permits printing smaller mole fractions. 
If the variable TRACE is set to some positive value, mole fractions greater than or equal 
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to this value will be printed. When this option is used, a special E -format for mole frac- 
tion output is used automatically. A TRACE value of l.E-38 is the lowest value allowed 
by the program. (See case 1565 in appendix E. ) 

For SHOCK problems, mole fractions of trace species are often desired. Thus, for 
SHOCK problems, the program will set TRACE to 5. E-9 automatically, and the E -format 
for output is always used. This value may be changed by using the TRACE option in 
INPT2 namelist input. (See case 1207 in appendix E.) 

T P, HP, SP, TV, UV, or SV problems . - In these problems, from 1 to 52 values of 
T, and from 1 to 26 values of P or V (or RHO) may be assigned. However, only one 
value of entropy SO may be assigned in INPT2 for the SP or SV problem. Only one value 
of enthalpy is permitted for the HP problem, and only one value of internal energy is per- 
mitted for the UV problem. However, these values of enthalpy and internal energy are 
not assigned in INPT2 but are calculated by the program. In a TP problem, if 52 values 
of T and 26 values of P are assigned in INPT2, properties will be calculated for the 1352 
possible P and T combinations. Similarly, as many as 1352 combinations can be calcu- 
lated for a TV problem. 

DETN problem. - Calculations will be made for all combinations of initial pressure 
P and initial temperature T. Initial temperatures may be specified in INPT2 namelist 
or on the REACTANTS card. 

RKT problem . - At least one chamber pressure value P is required in INPT2, al- 
though as many as 26 chamber pressures may be assigned. A complete set of calcula- 
tions will be made for each chamber pressure. The RKT problem requires a second 
namelist for input, RKTINP, which is discussed in the next section. 

RKTINP namelist (RKT problem only) . - This namelist is required for RKT prob- 
lems. It follows the INPT2 namelist. A list of variables and definitions is given in 
table VI. Even though this namelist is required, all variables are optional. If no varia- 
bles are assigned, only the chamber and throat conditions will be calculated. Usually, a 
pressure ratio schedule (PCP), an area ratio schedule (SUBAR or SUPAR), or some com- 
bination of these schedules will be assigned. 

Pressure ratio and area ratio schedules must not include values for the chamber and 
throat, inasmuch as these values are calculated automatically by the program. If both a 
pressure ratio schedule and an area ratio schedule are given in RKTINP, the pressure 
ratios will be calculated first. If both schedules are omitted, only chamber and throat 
conditions will be calculated. 

The program will calculate both equilibrium and frozen performance, unless RKTINP 
has the logical variable FROZ set equal to FALSE (FROZ = F) or the logical variable 
EQL set equal to FALSE (EQL = F). If FROZ = F, only equilibrium performance will be 
calculated. If EQL = F, only frozen performance will be calculated. 

If a frozen expansion is being calculated, it is possible to specify the freezing point 
by using the variable NFZ. For instance, to freeze immediately after the fifth point, set 
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NFZ = 5. If NFZ is not specified in the RKTINP namelist, the program assigns NFZ = 1 
(freezing in the chamber). If NFZ = 1 or 2 (NFZ = 2 corresponds to the throat), 22 addi- 
tional stations may be assigned in the expansion. If NFZ > 2, the program will allow 
only 11 additional stations. Freezing is permitted in the chamber, the throat, or any 
supersonic station but not at a subsonic station. 

SHOCK problem . - The program requires a P and T schedule in INPT2, and a sched- 
ule of either initial velocities (Ul) or Mach numbers (MACH1) in a second namelist, 
SHKINP (see table VIE). These values of P, T, and either Ul or MACH1 all refer to the 
unshocked gas and must correspond one-to-one with each other. Case 1207 in appendix D 
is a shock problem. The pressure and temperature schedules are limited to 13 values 
for SHOCK problems only. This corresponds to the 13 -value limit for Ul or MACH1 
schedules. 

REACTANTS cards must be only for gaseous reactants that are also included as re- 
action species in the THERMO data. This permits the program to calculate enthalpy and 
specific -heat values of the reactants from the THERMO data. 

SHKINP namelist (SHOCK problem only) . - A list of variables and definitions is 
given in table VU. SHKINP must include from one to 13 values of either Ul or MACH1 of 
the unshocked gas. The program will calculate incident shock parameters that assume 
both equilibrium and frozen composition unless SHKINP has the logical variable INCDEQ 
set equal to FALSE (INCDEQ = F) or the logical variable INCDFZ set equal to FALSE 
(INCDFZ = F). If INCDEQ = F, only frozen composition will be used. If INCDFZ = F, 
only equilibrium composition will be used. In addition, there are options for calculating 
reflected shock parameters. For each incident condition called for, reflected shock pa- 
rameters will be calculated that assume either a frozen composition (REFLFZ = T), an 
equilibrium composition (REFLEQ = T), or both (REFLFZ = T, REFLEQ = T). 


OMIT and INSERT Cards 

As indicated in table n, OMIT and/or INSERT cards may follow the REACTANTS 
cards. Their inclusion is optional. They contain the names of particular species in the 
library of thermodynamic data for the specific purposes to be discussed. Each card con- 
tains the word OMIT (in card columns 1 to 4) or INSERT (in card columns 1 to 6) and the 
names of from one to four species starting in columns 16, 31, 46, and 61. The names 
must be exactly the same as they appear in the first 12 columns of the THERMO data 
cards (see table I). 

OMIT cards . - Occasionally, it may be desired to specifically omit one or more 
species from consideration as possible species. This omission may be accomplished by 
means of OMIT cards containing these species names. See appendix D, cases 51 and 950. 
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If OMIT cards are not used, the program will consider as possible species all those 
species in the THERMO data which are consistent with the chemical system being 
,nsidered. 

INSERT cards . - These cards contain the names of condensed species only. They 
have been included as options for the following two reasons: 

The first and more important reason for including the INSERT card option is that, 
in rare instances, it is impossible to obtain convergence for assigned enthalpy problems 
(HP or RKT) without the use of an INSERT card. This occurs because the temperature 
sometimes becomes extremely low (several kelvin) when only gases are considered. In 
these rare cases, the use of an INSERT card containing the name of the required con- 
densed species will eliminate this kind of convergence difficulty. When this difficulty 
occurs, the following message is printed by the program: "LOW TEMPERATURE IM- 
PLIES CONDENSED SPECIES SHOULD HAVE BEEN INCLUDED ON AN INSERT CARD. " 
The second and less important reason is for efficiency of computation. If it is 
known that certain condensed species will be present among the final equilibrium compo- 
sitions for the first assigned point, a small amount of computer time can be saved by us- 
ing an INSERT card. The inserted condensed species will then be considered by the pro- 
gram during the initial iterations for the first assigned point. If the INSERT card were 
not used, only gaseous species would be considered during the initial iterations. How- 
ever, after convergence, the program would automatically insert the appropriate con- 
densed species and reconverge. For all other assigned points the inclusion of condensed 
species is handled automatically by the program. Therefore, it usually is immaterial 
whether or not INSERT cards are used for the purpose of saving computer time. 

DESCRIPTION OF PROGRAM OUTPUT 

The program prints four kinds of output: input data used to do the calculations, in- 
formation concerning iteration convergence,* tables of results, and optional intermediate 
output. 


Input Data 

Input data have been previously described. The general procedure used in this pro- 
gram is to list the input as they are read in and before they are processed by the pro- 
gram. The purpose is to show, in as clear a way as possible, what is actually on the in- 
put cards. All problems list the following input data: 

(1) The word REACTANTS 

(2) Reactant data 

11 


1L M l i Ii ¥ M M M 


II Ii II ¥ li M 1I M ¥ II ¥ 



(3) INSERT and/or OMIT card data 

(4) The word NAMELISTS 

(5) All data in namelist INPT2 given in table V (P and RHO use same storage) 
Following the INPT2 data is the statement "SPECIES BEING CONSIDERED IN THIS SYS- 
TEM. " Each species in the list is preceded by some identification, such as J 12/65. 

The J refers to JANAF data (JANAF Thermochemical Tables, see ref. 1). The letter L 
refers to unpublished data calculated at the Lewis Research Center. The number refers 
to the month and the year the data were published or calculated (12/65 is December 1965). 

For a rocket problem, the namelist RKTINP data given in table VI are listed. For a 
shock problem, the namelist SHKINP data given in table VII are listed. 

Following the list of chemical species (or RKTINP or SHKINP data, if any) is the 
current value of O/F. This is followed by a listing of the enthalpies or internal energies 
of the total fuel and oxidant and of the total reactant. Following this is a list of the 
kilogram -atom per kilogram of each element in the total fuel and oxidant in the total 
reactant. 


Tables of Thermodynamic Results 

The final output of the program is in the form of tables that are designed to be self- 
explanatory. Tabulated properties include pressure P, temperature T, density p, 
enthalpy h, entropy s, molecular weight M, two partial derivatives (3 In V/3 In P) T 
and (3 In V/3 In T) p , specific heat c p , isentropic exponent y g , and velocity of sound a. 
(An option is available to punch these values on cards. See table V and case 123 in ap- 
pendix D. ) Compositions are also included and given in terms of mole fractions. In ad- 
dition, rocket, shock, and detonation problems each list additional calculated properties 
which are pertinent to each type of problem. 


Tables of Transport Results 

The printed output consists of calculated results in tabular form. Punched -card out- 
put is also available as an option. With the exception of the heading at the top, the output 
for the transport calculations is the same for all types of problems. Viscosities, ther- 
mal conductivities, specific heats, Prandtl numbers, and Lewis numbers are calculated 
and listed for the same conditions as shown in the results of the thermodynamic 
calculations. 

Both frozen and equilibrium values are shown for the thermal conductivity, specific 
heat, and Prandtl number. The difference between frozen and equilibrium can be de- 
scribed in the following way: Consider a system of reactive species initially in chemical 
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equilibrium. If heat is then either added or removed, the temperature and pressure will 
change. If the composition does not change from the initial state, the system is said to 
be frozen. If the composition adjusts to the equilibrium composition of the new temper- 
ature and pressure, the system is said to be in equilibrium. But, if the final composi- 
tion is neither of these two conditions, the effects of chemical kinetics must be consid- 
ered. As stated previously, however, the effects of chemical kinetics are not included 
in the program. 

The specific heats shown in the transport properties table are usually identical with 
those shown in the thermodynamic properties table. However, differences do frequently 
occur for perfectly valid reasons. These are explained in the section TRANSPORT 
PROPERTY EQUATIONS. 

At this point it is worth explaining why the calculation of the specific heat is repeated 
in the transport property calculations, with condensed phases omitted. The reason is 
that it enables the calculation of internally consistent Prandtl and Lewis numbers, num- 
bers derived from properties which are all based on the same gaseous composition. 

These may be preferable for use in heat- and mass -transfer calculations. 


Error Messages 

The only other printed output which can occur comes from any one of a number of 
programmed error messages. Most of these are in the subroutines which do the thermo- 
dynamic property calculations. These are explained in detail in reference 1. Four pro- 
grammed error messages occur in the transport property subroutines. Two are in 
subroutine TRANSP and the other two are in subroutine INPUT. These messages are ex- 
plained in the sections discussing the subroutines. 


THERMODYNAMIC DATA 

Thermodynamic data are included with the program. Reference 1 lists data for 62 
reactants and 421 reaction species (solid, liquid, and gas phases of a species are counted 
as separate species). 


Assigned Enthalpies 

For each species, heats of formation (and, when applicable, heats of transition) 
were combined with sensible heats to give assigned enthalpies H^,. By definition, 
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( 1 ) 


H T ■ H 298. 15 + 


( H T - H 298. is) 


We have arbitrarily assumed H 2 g g ^5 = (^®f)298 15* Equation (D then becomes 

H t = ( AH f )298. 15 + ( H T " H 298. is) 

In general, * (aH°) t for T * 298. 15 K. For reference elements, ^AH°^ 2 g g 15 = 

A = 0. For the species included with the program these reference elements are 


( 2 ) 


298. 15 

Al(s), Ar(g), B(s) (beta), Be(s), Br 2 (Z), C(s) (graphite), Cl 2 (g), Cs(s), F 2 (g), Fe(s), 
H 2 (g), He(g), K(s), Li(s), Mg(s), Ng(g), Na(s), Ne(g), 0 2 (g), P(s) (red, V), S(s) 
(rhombic), Si(s), and Xe(g). 

Assigned enthalpies for reactants are given in table IV (in cal/mole as required for 
program input) together with some other reactant data. For cryogenic liquids, assigned 
enthalpies are given at their boiling points. These are usually obtained by subtracting 
the following quantities from the heat of formation of the gas phase at 298. 15 K: sensible 
heat between 298. 15 K and the boiling point, difference in enthalpy between ideal gas and 
real gas at the boiling point, and heat of vaporization at the boiling point. 


Least Squares Coefficients 


For each reaction species, the thermodynamic functions specific heat, enthalpy, and 
entropy as functions of temperature are given in the form of least squares coefficients as 
follows: 



a j + a 2 T 


+ a 3 T ' 


+ + a gT 


(3) 


Hr 


3 m2 , a 4 J . ~5 m4 . *6 


— = ai + — — T + — T + — + — T + 
RT 1 2 3 4 5 T 


(4) 


Srp a« n 3 -a o a c A 

— i = a., In T + a„T + + a,, 

R 1 ^ 2 3 4 * 


(5) 


Reference 12 describes a program which calculates the thermodynamic functions and fits 
the functions to equations of the form given in equations (3) to (5). 
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TRANSPORT DATA 


Transport and relaxation data are provided for 59 species, and additional transport 
data are provided for interactions between unlike species for another 58 interactions. 
Sources of these data are described in the section SOURCES OF TRANSPORT AND RE- 
LAXATION DATA and in tables Vm and IX. All data are in tabular form as a function of 
temperature. In contrast with the thermodynamic data, the temperature range of the 
transport data is not the same for all interactions. The temperature ranges for the 
transport data are also shown in table VTH. 

The temperature intervals in the table are not constant, but generally increase with 
increasing temperature. This was done in order to accommodate interpolation within the 
table. Interpolation is done by four -point Lagrange, and the number of arguments al- 
lowed per table is 20. This number was arrived at as a compromise between two con- 
siderations. First, storage space is limited (IBM 7094); and in order to allow sufficient 
storage for a large number of interactions, the number of intervals in each table should 
not be excessive. However, the interval size must be small enough such that interpola- 
tion errors are less than the uncertainty of the data within the table. Consequently, the 
temperature intervals tend to be closest in the vicinity of 300 K because usually the 
transport data are most accurately known at room temperature. 


SAMPLE PROBLEMS 

Ten sample problems are given to illustrate some of the features of the program. 
Five are rocket performance problems, RKT = T (cases 51, 122, 679, 5612, and 6666); 
two are combustion problems (case 123 is for combustion at constant pressure, HP = T; 
and case 1565 is for combustion at constant volume, UV = T); case 52 is a detonation 
problem, DETN = T; case 1207 is a shock problem, SHOCK = T; case 950 is an assigned 
temperature and pressure problem, TP = T; and case 6666 illustrates freezing in a 
rocket at a location other than the chamber. 

It would not be practical to illustrate every possible combination of options per- 
mitted by the program. However, the sample problems were selected to illustrate many 
of the possible combinations and, in particular, those variations which we believe would 
most often be used. Included in the combinations illustrated are the following: 

(1) Specifying proportions of various reactants 

(a) O/F: cases 122, 123, and 1565 

(b) Equivalence ratios: cases 52 and 950 

(c) Percent fuel by weight: cases 5612 and 6666 

(d) Complete information on reactant cards: cases 51, 679, and 1207 
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(^"Relative weights of reactants: cases 51, 52, 122, 123, 950, 1565, 5612, 
and 6666 

(f) Relative moles of reactants: cases 679 and 1207 

(2) Specifying enthalpies 

(a) On reactant cards: cases 51 (partly), 122, 123, 679, 950, 1565 (partly), 
5612, and 6666 

(b) Calculated by program : cases 51 (partly), 52, 1207, and 1565 (partly) 

(3) Pressure units 

(a) psia: cases 51, 122, 679, 5612, and 6666 

(b) atm: cases 52, 123, and 950 

(c) mm Hg: case 1207 

(4) INSERT: cases 51 and 5612 

(5) OMIT: cases 51 and 950 

(6) Composition in floating-point format: case 1565 

(7) Program considers ions: case 679 

(8) Special derivatives due to two condensed phases of a species: cases 51 and 5612 

(9) Special throat interpolation: case 5612 

(10) Omit transport property calculations: case 679 

(11) Punched -card output: case 123 

(12) Freezing at supersonic station: case 6666 

Some additional features of the program illustrated by the various cases are the 
following: 

(1) Case 51: This case shows several condensed species being automatically in- 
serted and removed by the program. Frozen expansion is stopped at point 3 inasmuch as 
the exit temperature is below the melting point of 2315 K. 

(2) Case 122: This case shows that it is possible to assign a schedule of points which 
includes a mixture of pressure ratios, subsonic area ratios, and supersonic area ratios. 


MODULAR FORM OF PROGRAM 

In order to facilitate adding or deleting applications of the chemical equilibrium part 
of the program, the program was set up in 10 modules. These modules are concerned 
with overlay control, which is used on the IBM 7094 (main program), and with general in- 
put, additional input processing, four applications, equilibrium calculations, transport 
calculations, and output. The general flow of these modules and associated routines is 
given in the following schematic: 
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From this diagram, it is clear that, for example, the rocket application could be elim- 
inated by omitting subroutines ROCKET, RKTOUT, and FROZEN and by omitting the 
statement which calls ROCKET in the main program. 


LINK (MAIN PROGRAM) 


LINK is the main program. Its sole function is to control the program flow between 
the thermodynamic and transport property calculations. The overlay structure used for 
the IBM 7094 is shown in figure 1. LINK and subroutine GAUSS are the only two routines 
in core storage at all times. (GAUSS solves a set of as many as 20 simultaneous linear 
equations. ) Overlay is not required for machines which have sufficient storage for the 
entire program. 

A flow chart of LINK is given in figure 2. 

The number of storage locations used for each routine is shown in parentheses in 
figure 1. These numbers include allocations for block common, as they are introduced 
into storage in loading the program. That is, the number in parentheses includes a block 
common with the first routine in which it is used. Consequently, LINK and TRANSP have 
larger numbers than they would have if the common blocks had not been included. 

When the program is doing thermodynamic property calculations, LINK 0 and LINK 1 
are in core storage. This uses about 27 000 storage locations. When the program is do- 
ing transport property calculations, LINK 0 and LINK 2 are in core storage. This uses 
over 32 000 storage locations. These numbers include all the routines but not other stor- 
age needed by the computer system. This additional storage requirement will vary from 
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one computer installation to another. At NASA Lewis this amounts to 1548 storage loca- 
tions for the system and an additional 5590 for the systems subroutines, for a total of 
7138 additional storages. n 

DISCUSSION OF SUBROUTINES 

This section describes the routines not included in reference 1 and also describes 
those in the CEC71 program which have been changed. Among the new routines are the 
subroutines needed for the transport property calculations and the main program (LINK) , 
which links the thermodynamic calculations with the transport calculations. Subroutines 
which will not be discussed are those which are nearly the same as those in reference 1. 

Some dimensions have been changed from the CEC71 program. In order to save 
storage, only 100 species and 10 elements are permitted, rather than 150 species and 15 
elements, as are allowed in CEC71. Also, the number of temperatures T has been 
changed from 26 to 52. These dimension changes apply to any routine in which the var- 
iables appear. These changes affect the common blocks POINTS, SPECES, and MISC. 

Two new common blocks, SAVED and CONTRL, have been added. SAVED is used to 
save information obtained from the thermodynamic calculations which is needed in the 
transport calculations. It is also used to save information obtained from the transport 
calculations which is needed later. This change also caused a slight reorganization of 
the variables in common blocks SPECES, MISC, and INDX. CONTRL contains additional 
logical variables TRNSPT, FROZN, PUNCH, and NODATA. 

Flow charts are also included for aid in understanding of the program. The reader 
may find appendixes A and B helpful in relating symbols to the program variable names. 


Subroutine MAIN 

Subroutine MAIN is very similar to the main routine in the CEC71 program. A flow 
chart is given in figure 3. Perhaps the most noteworthy change is that it is now a sub- 
routine. One other change is significant. That is, when thermodynamic data are being 
read in from cards, transport and relaxation data immediately follow the thermodynamic 
data. The format for the thermodynamic data is still the same as in reference 1. This 
change essentially involves only the insertion of 11 additional cards which are needed in 
order to read and write the transport and relaxation data on tape unit 4. 



Subroutine SEARCH 


SEARCH searches for data stored on logical tape unit 4. Thermodynamic data for 
all the species in the chemical system are located on tape unit 4 and saved in core stor- 
age. In addition, transport and relaxation data are also read from tape unit 4, and the 
data which are relevant to the chemical system are stored on logical tape unit 3 (disk 
storage). 

Another search of the transport and relaxation data on tape unit 3 is made at the 
start of the transport property calculations in subroutine TRANSP. This second search 
is used in order to find the data involving interactions of only the important species and 
to save these data in core storage. This secondary search is discussed in the section 
Subroutine TRANSP. 


Subroutine 0UT1 

Subroutine OUT1 is the output routine for the thermodynamic calculations. It is 
nearly the same as OUT1 in the CEC71 program. The only change is that punched -card 
output of the thermodynamic properties is now included. Only data of the standard ther- 
modynamic properties which apply to all types of problems (rocket, shock, detonation, 
and assigned thermodynamic states) are punched. The additional properties, which apply 
only to the particular type of problem being run, are not punched. 


Subroutines THERM P, ROCKET, SHCK, and DETON 

These subroutines control the calculations for the same types of problems as in the 
CEC71 program: properties at assigned tnermodynamic states, rocket combustion, nor- 
mal shock waves, and Chapman -Jouguet detonations. The basic differences between the 
two programs are the modes of entry and return from these routines. Both standard and 
nonstandard entries and returns are used, in contrast with the CEC71 program, which 
uses only a standard entry and return. The modes of entry and return can be seen from 
figure 2 and the program listing (appendix C). 

Another difference between the programs involves the DO loops on pressure, tem- 
perature, and O/F (P, T, OXF). The subroutines for the thermodynamic calculations 
and the subroutines for the transport calculations are in different core loads. So if the 
problem involves more than 13 points, the core load for the thermodynamic calculations 
has to be reloaded after each set of transport calculations is completed. However, in 
order to reenter the subroutines THERMP, ROCKET, SHCK, and DETON after each set 
of transport calculations, it would have been necessary to illegally enter inside the DO 
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loops. To avoid this problem, the DO loops have been eliminated and a simple, 
program -generated, indexing procedure on P, T, and OXF has been used. 

Subroutine ROCKET has additional changes associated with the variable NFZ, the 
variable which specifies the freezing point for frozen flow. Since the CEC71 program 
permits only freezing at the chamber, the present program required some changes in 
order to allow freezing at the throat or at any supersonic station. 


Subroutine TRANS P 

Subroutine TRANSP is the main routine for the transport calculations. A flow dia- 
gram is given in figure 4. All calculations of the properties are done in this routine. 

The equations are given in the next section. 

One other operation is carried out in this routine. Logical tape unit 3 is searched 
for the transport and relaxation data of the important interactions and saved in the var - 
iable TABLES. This search differs from the one in subroutine SEARCH. In SEARCH, 
data are saved for all interactions in the chemical system; whereas, in TRANSP, inter- 
actions involving a trace species are eliminated. 

The remainder of the routine is the calculation of the properties. Calculation of the 
viscosity, monatomic thermal conductivity, reaction thermal conductivity, and reaction 
heat capacity all involve the solving of a set of simultaneous linear equations. The ma- 
trix elements for each are calculated in TRANSP, but the actual solution is obtained from 
subroutine GAUSS. 

The solutions obtained from GAUSS are checked for accuracy for two of the proper- 
ties, viscosity and reaction thermal conductivity. If the initial equations are not satis- 
fied to a prescribed tolerance by using the solution obtained from GAUSS, an error mes- 
sage is printed out. (See the listing in appendix C of subroutine TRANSP for the specific 
information printed out in each error message. ) 

Subroutine INPUT 

Subroutine INPUT sets up the transport and relaxation data needed for the transport 
property calculations done in TRANSP. It is called from TRANSP for each point. The 
various functions of this subroutine are outlined as follows: 

(1) The EN array is searched for the most important gaseous species for the current 
point. These are identified and saved by storing the index of the species name in IND. 

_7 

A maximum of 20 species is allowed. All species of mole fractions less than 10 are 
omitted, as well as all condensed phases. However, all gaseous atomic elements are 
initially included, even if they are not among the 20 most important species, or even if 
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their mole fractions are less than 10 ^ . This condition is imposed to satisfy a require- 
ment imposed upon the A array, which is explained later in this section. If any ele- 
ments have been omitted through use of an OMIT card, sthey are reinserted into the A 
array at this point. A message is printed out giving the name of the element reinserted 
into the A array: M NO ELEMENT WAS FOUND IN THE LIST OF SPECIES WITH THE 
NAME (name of species), OR ELSE THERE IS AN ERROR IN THE A(I,K) ARRAY. " 

(2) The mole fractions and molecular weights are now calculated for the new reduced 
composition obtained in step 1. 

(3) Transport and relaxation data are initialized to zero. Then, data stored in 
TABLES are searched, interaction by interaction, for data pertinent to the current point. 
When such data are found, subroutine LGRNGE(TT) is called. LGRNGE(TT) interpolates 
for the temperature TT. If data are missing for a pure species, an empirical equation is 
used to estimate the data. If data are missing for an interaction between unlike species, 
data are estimated from combining rules, using the data of the pure species. The em- 
pirical equation and the combining rules are described in the next section. If data for a 
pure species are missing, an error message is printed out: M NO TRANSPORT DATA 
WERE FOUND FOR THE SPECIES (name of species). ” If the logical variable NODATA 
is not specified in the INPT2 namelist, the program sets NODATA = . F. and the message 
is printed. If NODATA = .T. is set in namelist INPT2, the message is not printed. 
However, no message is ever printed when data are missing for an interaction between 
unlike species. In either case, the program continues. 

The purpose of this error message is to warn the program user when transport data 
for a major species are missing. When the user is certain this is not the situation, he 
may wish to omit the message, in order to avoid getting the message every time the pro- 
gram fails to find data for a minor species. 

(4) The final operation of INPUT is to read the stoichiometric coefficients from the 
A array into the STC array and reorder them so as to express them as a set of chem- 
ical reaction equations, suitable for use in equation (25). As was mentioned earlier, all 
the elements in the system are initially included. This is not a necessary requirement, 
but was done as a matter of convenience. By including all the elements among the 20 (or 
less) gaseous species in the system, it is possible to use the A array to express the 
system in terms of a sufficient set of independent chemical equations. The number of re- 
quired independent equations is given by taking the total number of species and subtract- 
ing the number of chemical elements in the system. So by choosing the set of chemical 
equations as the chemical reactions of formation of each species, a set of equations can 
be easily written directly from the stoichiometric coefficients in the A array. For in- 
stance, in the A array corresponding to the column for CH^, there is a 1 in the row for 
carbon, a 4 in the row for hydrogen, and a 0 in the rows for the remaining elements. By 
assigning a -1 to CH^, the chemical equation C + 4H - CH^ = 0 is formed. 
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This procedure is applied to each species in the system, and the result is the initial 
set of equations. This initial set of equations is then reduced in order to eliminate any 
species or element (in this case always an element) not found among the 20 most impor- 
tant species in the system. This reduction is accomplished by searching through the 
chemical equations for an element with a mole fraction less than 10’^, solving the chem- 
ical equation for that element, and then substituting the result in any other equation in 
which the element appears. The new set of equations is one less in number than the orig- 
inal set. This procedure is repeated until all the elements of mole fractions less than 
10 have been eliminated from the chemical equations. The stoichiometric coefficients 
of this final set of equations are stored in STC and are used in equation (25) for calculat- 
ing the reaction contribution to the heat capacity and thermal conductivity. 


Subroutine OUT 

The output routine, appropriately called OUT, handles all the output of the transport 
property calculations. This includes table headings, units, calculated data, spacing, and 
punched -card output. 

This routine was written with the capability of saving the transport data for as many 
as 52 points. These data are saved in STORE. Including the current set of 13 points, 
this means that as many as 65 points can be printed at one time. If the problem has 
more than 65 points, such as might occur for a TP problem, transport data will be 
printed out after every multiple of 65 points. 


Subroutine LGRNGE(TT) 

Subroutine LGRNGE(TT) is a four -point Lagrange interpolation routine. It is used 
to interpolate within the tables of transport and relaxation data at temperature TT. 


TRANSPORT PROPERTY EQUATIONS 

The rigorous theory for the transport properties of real, dilute, monatomic gases 
has been reviewed and studied in great detail by Chapman and Cowling (ref. 13) and 
Hirschf elder, Curtiss, and Bird (ref. 14). Both references 13 and 14 express the trans- 
port coefficients in terms of Sonine polynomial expansions. However, in actually solving 
the equations, they use different but equivalent methods. Another method originated by 
Maxwell and refined by Chapman is called the moment method. More recently, Grad 
(ref. 15) has made the expansion in the moment method more systematic, using Hermite 
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polynomials rather than Sonine polynomials; his method is frequently referred to as the 
’’thirteen-moment method. ” An historical review of the early work in this field is given 
in reference 13. 

The methods described in references 13 to 15 result in mathematical solutions with 
increasing orders of approximation to the transport coefficients. As the order of approx- 
imation increases, so does the arithmetic complexity. Fortunately, what is usually re- 
ferred to as the first approximation is sufficiently accurate for nearly all practical appli- 
cations. The most notable exception to this is when ionization becomes appreciable 
(refs. 10 and 11). This is particularly true for the thermal conductivity. The present 
program uses only the first approximations, and this suggests an upper limit to the range 
of applicability for the transport coefficient calculations. This limit is incipient ioniza- 
tion. When the degree of ionization is low, collisions between ionized species and neutral 
particles are infrequent, and collisions where both species are ionized are very infre- 
quent. With a further increase in temperature (or decrease in pressure), ionization in- 
creases and interactions between charged particles become important. At this point the 
first approximation is no longer sufficient. 

However, it should be reiterated that what we are referring to here are approxima- 
tions to the solution of the general equation. There are other assumptions in the math- 
ematical formulation which have been discussed in the section ASSUMPTIONS AND CAPA- 
BILITIES. These assumptions restrict the range of applicability of the general equation 
at high pressures and at low temperatures and pressures. 


Viscosity 

The viscosity of the gas mixture is calculated from the following equation (ref. 14, 
p. 489, eqs. (7.4-56) and (7.4-57), see also pp. 531 and 532): 

n 

^mixture “ 2 x i^i ^ 

i=l 

where n is the number of species in the mixture, x. is the mole fraction of species i, 
and r is found by solving the following set of simultaneous algebraic equations, which 
are linear in the unknown : 


n 


2 vi 

i=i 


=x i 


1 = 1 , 2 ,. 


n 


(7) 


23 


11 II U II li U U K 11 H M 1 


H ll M M H L 



and the c- j matrix coefficients are given by 


x i V 2X i X * M i M k 

!ii - — + 1 


”li 4-. (M i + M k ) 2 \3A^ 


k^i 



(7a) 


where 


and 


c.. = - 


2x i x j M i M j 


V ij (m.+M.) 2 \3A* 


- 1 


i * j 


(7b) 


ij 


16N, 


y2irM.M.RT/(M. + M.) 


(7c) 


a: = -ii 


n?> 2 > 


1J of. 1 - 1 ) 

i] 


(7d) 


where N* is Avogadro's number, M. is the molecular weight of species i, R is the 
A i _ /n i\ _ to 21 

gas constant, T is the temperature, and S2>. ’ ' and fil. ’ ' are cross sections. The 

sj. 1 ’ ^ are the diffusion cross sections. When j = i, the Slj 2 ’ 2 * are viscosity cross sec- 
tions, and ijy simplifies to the equation for the viscosity of a pure gas 
(5VirM.RT/16irN A ii[?> 2) ). 


Thermal Conductivity 

The thermal conductivity is usually expressed as 

^mixture “ ^trans + ^int + ^reaction “ ^frozen + ^reaction ^ 

An equation for the first term on the right side of equation (8) was derived by Muckenfuss 
and Curtiss (ref. 16) and may be written in the form 
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( 9 ) 


n 


X trans 4 Z x i X i 
i-1 


where the are found by solving the following set of simultaneous linear equations, 
similar to those for the viscosity: 


n 


Z Vi =x i i = 1 , 2 ,..., n 

3=1 J J 


( 10 ) 


and the b.j matrix coefficients are given by 



2x i x k (f M ? + f M k - 3B >k + 4 4 M i M k) 

(M t + M k ) 2 A4x jk 


(10a) 


2x.x,M.M, 


b « = - 


13 13 f 

(m. + m.) 2 a*x4 


55 - 3B*. - 4A.. 

A *3 


;) 


i * j 


(10b) 


where 


_ 75R y»(Mj + Mj)RT/2M.M. _ 15 M + M.' 


X ^ 64N 


^ 2 > 2 > 

*1 


_ R 
4 


2M i M. 


'13 


(10c) 


and 


B * y 13 

ij_ nJM ~ 

13 


(10d) 


The ^ and ^ are cross sections similar to the ^ and fij 2, 2 ^ but are 
not associated with any particular transport property. 

The preceding result for ^ rans represents the total thermal conductivity of a mix- 
ture of inert monatomic gases, species without internal structure. For polyatomic 
gases, Monchick, Yun, and Mason (ref. 17) and Monchick, Pereira, and Mason (ref. 18) 
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have extended the theory to include internal energy. Two assumptions were needed in 
order to obtain workable equations. The first assumption was that T, complex collisions" 
(collisions involving more than a single quantum jump) could be ignored, and the second 
was that there was no correlation between internal energy states and relative velocities. 
With these assumptions plus suitable definitions of internal diffusion coefficients and re- 
laxation times, they obtained a working equation for the thermal conductivity. They then 
simplified the equation to include only first-order correction terms and rearranged it to 
correctly give the thermal conductivity of the pure gas automatically. They expressed 

X int as 

x int = (X int' HE + AX (11) 

where (X. ,) is the Hirschf elder -Eucken approximation for the internal contribution to 
mt HE 

the thermal conductivity (ref. 19) and AX is a correction term containing the inelastic 
effects between unlike species and some of the inelastic effects between like species. 

The Hirschf elder -Eucken approximation is given by 


n 




HE 




i=l 


( 12 ) 


where the are binary diffusion coefficients, the D.. are self -diffusion coefficients, 
and X^ . is the internal energy contribution of species i to the thermal conductivity. 
The X int ’ ^ are given by (ref. 18) 


_/piW 


'ii 


'ii 


'int,i 


^int,i |(5 Pj D int,i 

& v< 


7lZ i 


'll 



(13) 


where p ^ is the density, C int ^ the internal heat capacity, Z i the collision number, 

I*int . a quantity which is frequently referred to as the diffusion coefficient for internal 
energy, and the subscript i again refers to species i. For elastic collisions, D.^ . 
is reasonably well approximated by the self -diffusion coefficient (ref. 20). However, for 
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some molecules, this approximation is no longer valid. For example, polar molecules 
may exchange internal energy even at large separations. In particular, for the case of 
the exchange of rotational energy when the exchange is -energetically resonant, Mason and 
Monchick have derived expressions for D in ^ . which can be expressed as (ref. 20) 


D 


int,i 


D ii 


1 + 6 i 


(14) 


They give explicit expressions for the 6^ in terms of the molecular weight, dipole mo- 
ment, and moments of inertia for linear molecules and various symmetric -top molecules. 
From reference 14 (p. 540), 


p i D ii _ 6 A * 
„ e A ii 
% 5 


Then from equations (14) and (15), 


Pj D int,i = 6 / A ii \ 
Vii 5 \l + dj 


(15) 


(16) 


where 5^ = 0 for nonpolar molecules. 

One additional modification of equation (13) should be mentioned. Only one collision 
number is indicated for each species in equation (13). However, there is a different col- 
lision number for each internal energy mode. If each internal energy mode is separable 
and a collision number identified with each mode, then one can write (ref. 18) 


C int,i _ C int,ki ^ 

z i ~ L, z w 

k 

where the subscript k runs over all internal energy modes and the subscript i refers 
to species i. However, in practice, the rotational energy modes are usually the only 
ones of importance, though the vibrational ones may become important at high 
temperatures. 

If it is assumed that the species can be characterized by one rotational collision num- 
ber and by one vibrational collision number and that . = D^/( 1 + fi.) , then from 

equations (13), (15), and (17) and the relationship for an ideal gas, which is 
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(18) 


C int,i “ C p,i " g R 


the following is obtained: 


( X int,i )M i = 6 A * L 


V 


li 


li 




' C roM + C vib,i\ /5 _ 6 A *\ 2 R 
Z rot,i Z vib,i/ V 2 5 ' (19) 


7rR ( ^rot,i + ^vib,i 


Z rot,i Z vib,i/|_ 




6/5A*. 


3 (Cp/R) - (5/2) 


Equation (19) is written for nonpolar gases. For polar molecules, A., is replaced by 
/( 1 + 6^). To transform the denominator of equation (12), the following relationship is 
used (ref. 14, p. 530): 


P -3( M i + M i 
^ 5 \ M.M. 



When this equation is substituted into equation (12), the result is 


( 20 ) 



( 21 ) 


The denominator contains quantities which have been previously defined. The computer 
program uses equation (21) with X. t . obtained from equation (19). Again, for polar 
molecules, A^. is replaced by A^/(l + 6^. The program does not calculate the 6^ It 
is assumed that the A*^ are provided in a form which is suitable for direct use in equa- 
tions (19) and (21). 

Monchick, Pereira, and Mason (ref. 18) have compared calculated results for some 
binary mixtures with experimental measurements in order to determine the effect of in- 
cluding relaxation effects. Equation (11) was used along with the internal thermal con- 
ductivity of a pure species ^ expressed in the form 
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(22) 


■ . _ v XU XV 

X int,i = A exp,i " A monatomic,i “ exp,i " ^ M ii 

At the temperatures of the experimental measurements, only rotational relaxation was 
important. In general, satisfactory agreement was obtained between experiment and the 
theory of binary mixtures. Their results showed that the calculations were relatively in- 
sensitive to the inelastic collision corrections, provided that as the mole fraction of one 
species reached zero the calculated results were forced to agree with the experimental 
value of the pure gas for the other species. They concluded that for most purposes it 
was satisfactory to neglect inelastic effects in the mixture between different species, but 
that inelastic effects must be included in the calculations of the pure species. In other 
words, to a good approximation, AX can be ignored in equation (11). A further consider- 
ation is that relaxation information between unlike species is almost completely lacking 
(ref. 18). In view of the preceding considerations the present program assumes AX = 0, 
and thus equation (21) is the only term contributing to equation (11). 

The third and final term in equation (8) represents the contribution from chemical 
reaction. For a mixture of nonreacting gases (frozen mixture), this term is zero. But 
when chemical reactions occur, there is a contribution to the thermal conductivity. A 
general expression has been derived (refs. 21 and 22) for the contribution to the conduc- 
tivity when local chemical equilibrium exists in a mixture of reacting gases: 

^reaction ” ^ y (~Rr) > * (23) 

i=l 

where v is the total number of chemical reactions and AI^ is the heat of reaction ex- 
pressed as 

^ H i = Xw i = 1 ’ 2 > v {u) 

k=l 


In equation (24) the a^ are the stoichiometric coefficients written for the chemical re- 
actions involving species A k as follows 

X a ik A k = 0 1=1,2,..., v (25) 

kSl 
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The X . are found by solving a set of simultaneous linear equations 
^ « * 



i = 1 , 2 ,..., v 


where the g. . are given by 


n-1 n 

*-ZZ 

k=l l=k+l 



( 26 ) 


(26a) 


Rearranging equation (20) gives 


RT 5M k M Z 

PD k l + M l ) 

which is the form of RT/PD^ used in the program to evaluate g^ in equation (26a). 
The sum of equations (9), (21), and (23) gives the total thermal conductivity of the gas 
mixture. 


Specific Heat 

The specific heat given in the transport properties table is calculated from the equa- 
tion of reference 23 


c p, eq C p, frozen + c p, reaction 


(27) 


where 


n 

2 x i c p,i 


'p, frozen 


i-1 
n 


E x i M i 

i=l 




(27a) 
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is found from an equation very similar to that for calculating ^ reac ti 0 n 


an< * c p, reaction 
(eq. (23)) 


c p, reaction 



The are found by solving the following set of linear equations: 



i = 1,2, , 


where the d~ are given by 



(28) 


(29) 


Equation (28) is different from, but equivalent to, that given in reference 1. It is 
also very similar to the equation (from refs. 21 and 22) for calculating ^ reac ti 0 n 
(eq. (23)). The only difference from equation (23) is that the (RT/PD^) term is missing 
in the d^ coefficients. Consequently, it provides a means for checking for errors in 

the transport calculations , especially ^ reac tion* 

Agreement between the specific heat in the thermodynamic calculations and the spe- 
cific heat in the transport calculations indicates that the transport calculations proceeded 
satisfactorily. However, as mentioned earlier in the section DESCRIPTION OF PRO- 
GRAM OUTPUT, differences do frequently occur for perfectly valid reasons. First, if 
condensed phases appear in the composition there will be some differences, because the 
specific heat listed in the results of the thermodynamic calculations includes condensed 
and gas phases, whereas the specific heat listed in the results of the transport calcula- 
tions includes only the gas phase. The other reason is that sometimes not all the species 
appearing in the results of the thermodynamic calculations will be used in the transport 
calculations. This occurs because, as explained previously, only 20 gaseous species are 
included in the transport calculations and, among these, all the elements in the chemical 
system are initially included. The reason for including the elements was discussed in 
the section describing subroutine INPUT. 
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Remaining Properties 


The equations for the remaining properties are summarized as follows: The frozen 
and equilibrium Prandtl numbers are 


Pr 


frozen 


^ c p, frozen^ mixture^ 
^frozen 


Pr 


eq 


^ c p, eq^mixture^ 
^mixture 


(30) 


(31) 


For the generalized Lewis number, as defined by Brokaw (ref. 24) 


^reaction^ c p, frozen^ 
^frozen^ ^ c p , reaction^ 


(32) 


A few other thermodynamic properties for the gas phase (molecular weight, enthalpy, 
and density) are included in the punched -card output but not in the printed output: 


n 

M = £ x.M. 
i=l 

(33) 

n 

H = 2 x,H. 

i=l 1 1 

(34) 

_PM 

(35) 


Estimation Techniques 

The final subject concerns the equations used to estimate the transport cross-section 
data when these data are missing from the TRANSPORT data library (physical tape 4). 
When this occurs, empirical rules are used. For interactions involving molecules of dif- 
ferent species, the rules suggested from the analogy to a rigid sphere (ref. 25) are 
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2) =~ jf&j?’ 2) + + njj 2 » 2) 


A* 1/A* A*\ 

A ij = 2< A ii + V 


(36) 

(37) 


B*. = A (B* + B*) 
i] 2 11 » 


(38) 


For molecules composed of hard rigid spheres the preceding equations are exact 
< A y = B*j = D. 

For interactions involving molecules of the same species, an empirical relation was 
derived from the experimental and theoretical transport data of the pure species. This 
relation should not be considered as a means for providing missing data, but rather as a 
means for estimating cross sections of the correct order of magnitude, in order that the 
calculations will proceed smoothly. Problems might occur, such as division by zero, if 
the assigned storage locations for cross sections were allowed to remain empty. Only 
species for which information on transport data were available over a large temperature 
range were used in the analysis. These included species such as He, Ne, Ar, Kr, Xe, 
N, O, Ng, 0 2 , H 2 , C0 2 , and HgO. The empirical relationship is 


= In [320 


5 

„1. 4 


(39) 


where is given in the units of square angstroms. The largest errors in equa- 

tion (39) occurred for species of very low molecular weight. For very high temper - 

—(bo) 

atures or low molecular weights, O). * ; can become negative. In order to avoid this, 

= 1 was arbitrarily assigned as the smallest allowable value. For all conditions 
11 —(2 2^ 

where ; calculated by equation (39) is less than unity, it is set equal to unity. 

The A*^ and B*^ generally show only a very slight temperature dependence and 
usually are close to unity. Consequently, both were set equal to 1 for all temperatures. 
This is also consistent with equations (37) and (38) in that this approximation is exact for 
molecules composed of hard rigid spheres. 

Also, for each species, relaxation data are needed (Z^), and these data are often 
lacking. If relaxation data for the species are not found in the tape library, the program 
uses the Hirschfelder-Eucken approximation (ref. 19), which is equivalent to letting 
Z rot = Z vil) = oo in equation (19). There is no scheme for estimating collision numbers 
included in the program . 
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SOURCES OF TRANSPORT AND RELAXATION DATA 


Sources of the transport cross-section data included with the program are given in 
table vm. The data are in the nature of a preliminary set of input. In order to provide 
data for the large number of interactions needed in a general program, data included with 
the program were generally obtained directly from the literature. For the most part, 
the data were not examined critically, and so are not necessarily the most recent or most 
accurate data. There is one important exception, however. This is the input for the 
inert gases. A considerable amount of high -temperature experimental viscosity and 
thermal conductivity data have become available for the inert gases in recent years. 

These data, as well as the earlier data, have been used to obtain the cross-section data 
included with the set of input. Molecular beam scattering data were used at the higher 
temperatures. 

One method given in table VIII which should be commented upon is method 9 , which 
applies to the CO interactions. From consideration of the electron configurations and 
molecular weights of N 2 and CO, it would be anticipated that the transport cross sections 
for interactions involving N 2 should be about the same as those for the corresponding in- 
teractions involving CO. In order to test this supposition, the viscosity data of N 2 were 
compared with the viscosity data of CO (refs. 26 and 27); and the binary diffusion data 
for Ng-X were compared with the binary diffusion data for CO-X (ref. 28), where X is 
some third species. Good agreement was obtained. This suggested the possibility that 
if data for an interaction involving CO were unavailable, data for the corresponding inter- 
action involving N 2 could be used. The reverse would also be true. However, since data 
for the N 2 interactions are considerably more extensive than those for the CO inter- 
actions, this approximation usually amounts to a method for estimating data for inter- 
actions involving CO from the corresponding interactions involving N 2 . 

Although the list of interactions in table VTH is not complete, it is fairly comprehen- 
sive. An effort was made to include data for all the important species and for many of 
the interactions between unlike species. There are two exceptions, however. First, no 
data have been included for ionized species; and second, data for only a few organic mol- 
ecules have been included. 

Relaxation data included with the program are given in table IX. Only rotational col- 
lision numbers are included. The Hir schf elder -Eucken approximation is used for vibra- 
tional relaxation (Z y - b = <*>). Most of the collision numbers given for nonpolar or slightly 
polar molecules were obtained by fitting the experimental thermal conductivity data to 
equation (22), with * internal given by equation (19), and letting Z yib = °°. All Z rQt 
were assumed to be independent of temperature. (The numbers given in table IX repre- 
sent average values over the entire temperature range. ) There were two reasons for do- 
ing this. One reason is that calculated values of are usually quite sensitive to 

changes in the values of the viscosity and thermal conductivity used in the calculations. 
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Furthermore, since the uncertainty in the thermal conductivity is sometimes rather 
large, it often leads to very large uncertainties in the calculated collision number. The 
other reason is that at higher temperatures the absence of experimental thermal conduc- 
tivity data means that Z rQt would have to be determined by some alternate technique. 

A reasonable procedure would be to extrapolate Z rQ j. to higher temperatures by means 
of some theoretical expression for the temperature dependence. However, investigators 
who have studied the temperature dependence from theoretical considerations have ob- 
tained significantly different results (refs. 29 to 31). Therefore, it seemed unwise to in- 
clude temperature -dependent collision numbers without even being sure of the temper- 
ature dependence of Z rQ Consequently, Z ro j. was assumed to be a constant, and the 
numbers listed in table IX apply to all temperatures. 

In some cases the experimental thermal conductivity data indicated a Z rot less 
than unity. However, this seems inconsistent with the general physical notion of a colli- 
sion number, and so for these cases Z rQ j. was set equal to 1. 

For large collision numbers the calculated thermal conductivity is insensitive to 
variations in the collision number. A large range of will adequately fit the exper- 

imental data. It becomes difficult, if not impossible, to determine a rotational collision 
number by just fitting thermal conductivity data. For a Z rQ . j. of about 20 or more, 
there is very little difference between the thermal conductivity calculated by using Z rQ |. 
and that calculated from the Hirschf elder -Eucken approximation (Z ro ^ = °°). Conse- 
quently, when the experimental thermal conductivity data indicated rather large collision 
numbers, the Hirschfelder -Eucken approximation was assumed. 

For some species, viscosity data were available but thermal conductivity data were 
not. For these species the rotational collision numbers were estimated from the expres- 
sion derived by Sather and Dahler (ref. 32) for a rough sphere surrounded by an attrac- 
tive square -well potential. Their results for the rotational relaxation time t may be 
expressed as 


2 \aJ \ m a/ 


4I/m a a 2 
(l + 4I/m a a 2 ) 2 


gfa) 


(40) 


Considering only the low -density limit of the radial distribution function g(cr) (ref. 14, 
p. 321) 


g(o-) = 



(41) 
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and defining a collision number Z 


as (ref. 18) 


rot 



( 42 ) 


we can substitute into equation (40) to obtain a value for Z rQ ^. If we further assume that 
the viscosity rj can be calculated from the equation for viscosity of rigid -sphere mol- 
ecules (ref. 14) 


V = 



(43) 


and use the ideal -gas law, the rotational collision number is given by 


Z 


-1 = 577 
rot - 12 


4I/m a cr 2 
(l + 4I/m a a 2 ) 



(44) 


Equation (44) can be used to calculate a collision number directly or to calculate a 
ratio of the collision numbers of two species. The advantage of calculating a ratio is that 
it enables one to make use of a species for which the rotational collision number is known. 
This was the procedure used in obtaining the collision numbers shown in table EX. Mol- 
ecules treated in this way are indicated, along with the species of "known” Z rot used to 
make the estimate. In this report, the collision numbers obtained by fitting thermal con- 
ductivity data are considered to be the known Z^. 

The equation is temperature dependent. However, since temperature dependences 
are not given for the species of "known" Z rQt , they are not given for the calculated ones 
either. The temperature actually used in each calculation was an average temperature. 
This average temperature was found by taking the average of the temperature range used 
in determining the Z rQt of the reference species ("known" Z rQt ). 

Collision numbers for the polar gases were taken from Zeleznik and Svehla (ref. 29). 
These are theoretical values of z roi based on a classical calculation of rotational relax- 
ation times. The calculated values of Z rQt do have a temperature dependence. These 
are shown in table IX. 
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CONCLUDING REMARKS 


The program described in this report is complete as it is presented herein. How- 
ever, changes may occur from time to time as the authors become aware of improved 
techniques for doing the calculations. Though these changes may not be published, an 
outside organization requesting the program automatically receives the latest version. 

Improved calculational results may also be obtained with the addition of new thermo- 
dynamic and transport data or with the updating of data already included in the program. 
This can be done by the program user if he has data to be added or changed, or he can 
send for the authors’ updated version of the data. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, July 26, 1972, 

501-24. 
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SYMBOLS 

ratio of nozzle exit area to throat area, dimensionless 
chemical formula of species k, dimensionless 

^if’ /^ij 1 ’ dimensionless 

sonic velocity, m/sec 

stoichiometric coefficient for species k in reaction i, dimensionless 

[s^ 1 ’ 2 * - 45^ » dimensionless 

matrix coefficient in eq. (10), (m)(sec)(K)/J 

coefficient of thrust, dimensionless 

heat capacity at constant pressure, J/(kg-mole)(K) 

matrix coefficient in eq. (7), (m)(sec)/kg 

specific heat at constant pressure, J/(kg)(K) 

characteristic velocity, m/sec 

o 

binary diffusion coefficient, m /sec 
matrix coefficient in eq. (29), dimensionless 

fuel-to-air weight (or mass) ratio or fuel- to- oxidant weight (or mass) ratio, 
dimensionless 

percent of total fuel in total reactant by weight (or mass), dimensionless 
matrix coefficient in eq. (26), (m)(sec)/kg-mole 
radial distribution function evaluated at or , dimensionless 
enthalpy, J/kg-mole 

standard -state enthalpy at 0 K, J/kg-mole 

heat of reaction, J/kg-mole 

heat of formation at temperature T, J/kg-mole 

enthalpy, J/kg 

moment of inertia, (kg)(m ) 

specific impulse with exit and ambient pressure equal, (N)(sec)/(kg) 
vacuum specific impulse, (N)(sec)/(kg) 
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k Boltzmann’s constant per molecule, 1.380622x10 J/K 

Le Lewis number (defined by eq. (32)), dimensionless 

M molecular weight, kg/kg -mole 

m molecular mass, kg 

a 

Avogadro’s number, 6.022169x10^ molecules/kg -mole 
n number of gaseous species included in transport calculations, dimensionless 

O/F oxidant -to -fuel weight (or mass) ratio, dimensionless 

2 

P pressure, N/m 

P c /P ratio of combustion pressure to exit pressure, dimensionless 
Pr Prandtl number (c p r?/X), dimensionless 

R gas constant, 8314. 3 J/(kg-mole)(K) or 1.987165 cal/(g-mole)(K) 
r equivalence ratio, dimensionless 

5 entropy, J/(kg-mole)(K) 

Sq standard -state entropy at 0 K, J/(kg-mole)(K) 

s entropy, J/(kg)(K) 

T temperature, K 

U internal energy, J/kg-mole 

Uj velocity of unshocked gas relative to incident shock front, m/sec 

Ug velocity of incident -shocked gas relative to incident shock front, m/sec 

3 

V volume, m 

Vg actual velocity of incident -shocked gases in fixed coordinates, m/sec 
Xi unknown in eq. (28), dimensionless 

x^ mole fraction of species i, dimensionless 
Z. collision number of species i, dimensionless 

y isentropic exponent (3 In P/9 In p)g, dimensionless 

6 correction term in eq. (14) for resonant exchange of rotational energy, 

dimensionless 

€ depth of potential energy well, J 

7] viscosity, kg/(m)(sec) 

77j unknown in eq. (6), kg/(m)(sec) 
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% 

X 


AX 

v 

i r£2^’ S ) 

P 

<7 

T 

Subscripts: 

eq 

exp 

frozen 

HE 

U>M 

int 

mixture 

monatomic 

P 

reaction 

rot 

S 

T 

trans 

vib 

Superscript: 

o 


viscosity of species i, kg/(m)(sec) 

defined quantity (see eq. (7c)), kg/(m)(sec) 

thermal conductivity, J/(m)(sec)(K) 

unknown in eq. (9), J/(m)(sec)(K) 

defined quantity (see eq. (10c)), J/(m)(sec)(K) 

unknown in eq. (23), kg-mole/(m)(sec) 

correction term involving relaxation effects, J/(m)(sec)(K) 

number of chemical reactions, dimensionless 

o (2 2)* 2 

collision cross section (equivalent to ira ' of ref. 14), m 

q 

density, kg/m 

molecular diameter in eq. (40), m 
rotational relaxation time, sec 

equilibrium 

experimentally measured value 
chemically frozen (nonreacting) 

Hirschfelder -Eucken 
index for species or reaction number 
pertaining to internal energy modes 
for the mixture 

translational energy contribution for a single species 

at constant pressure 

chemical reaction contribution 

rotational 

at constant entropy 

at constant temperature 

translational 

vibrational 

standard state 
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APPENDIX B 


VARIABLES, INDICES, AND CONSTANTS USED IN TRANSPORT SUBROUTINES 


FORTRAN 

symbol 

Dimension 

Common 

label a 

Transport 

subroutines 

used b 

Description and comments 0 

A 

10,100 

SPECES 

INPUT 

Stoichiometric coefficient A(i,j) of element l 
in species j 

ANS 

15 

TRANS 

TRANSP 

OUT 

Output results (each ANS equivalenced to a 
particular property) 

ANSR 

3 

INTERP 

INPUT 

LGRNGE 

Answer vector from Lagrange interpolation 

ASTAR 

20,20 

TRANS 

TRANSP 

INPUT 

jr(2,2) ,-r(l,l) * 

ft ij /Ojj , A tj 

ATOM 

3,101 

MISC 

INPUT 

For atom j 





ATOM(l,j) = atomic symbol 
AT0M(2,j) * atomic weight 
ATOM(3,j) “ atomic valence 

AVGDRO 

BIGEN 

1 

1 

DATA 

STATEMENT 

TRANSP 

INPUT 

Avt-gadro's Number (without the exponent 10 2 ^) 
Test number in finding largest EN 


BOLTZ 

1 

DATA 

STATEMENT 

TRANSP 

Boltzmann's Constant (without the exponent 
10“ 23 ) 

BSTAR 

20,20 

TRANS 

TRANSP 

INPUT 

(5n^> 2) - «i^ ,3) )/n^ ,1) , B*j 

CHECK 

COEFF 

20 

1 

DIMENSION 

STATEMENT 

TRANSP 

INPUT 

Check of results from GAUSS solution, double 
precision 

Stoichiometric coefficient of species to be 
eliminated (in the reaction to be eliminated) 


CONST 

1 

TRANSP 

Coefficient in n . , , 5/16(10 54 k/itNj l ^ 2 
ij A 


CPEQ 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

Equilibrium specific heat of mixture, ^ 

CPFROZ 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

Frozen specific heat of mixture, c * 

r p, frozen 

CPREAC 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

Reaction specific neat of mixture, c _ . 

K ’ p, reaction 

CPRR 

20 

TRANS 

TRANSP 

Dimensionless heat capacity, C^/R 

CVIBR 

20 

TRANS 

TRANSP 

INPUT 

Vibrational heat capacity, C^^ 

DELH 

17 

DIMENSION 

STATEMENT 

TRANSP 

Heat of reaction, AH/RT 

DENSTY 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

Gas density of mixture used in transport cal- 
culations, p 

EN 

100,13 

SPECES 

INPUT 

EN(l,j) - kg-moles of species i per kg of 
mixture for point j 

ENTLPY 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

OUT 

Enthalpy, H 

ENTRPY 

1 


OUT 

Entropy, S 

ETA 

20,20 

DIMENSION 

STATEMENT 

TRANSP 

Quantity defined in equation (7), 


a Common block Is specified. If it is not in a common block, the type of statement is indicated. 
If it is in neither, a dash is shown. 


In most cases only the transport subroutines are listed. However, in some cases, it was useful 
to list the other routines in order to describe the application. 

C FORTRAN IV convention is followed unless otherwise indicated. If the variable is real, integer, 
logical, or double precision, it is so Indicated. 


NOT REPRODUCIBLE 
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FORTRAN 

symbol 

Dimension 

Common 

label 

Transport 

subroutines 

used 

Description and comments 

EQCON 

l 

EQUIVALENCE 

STATEMENT 

TRANSP 

Equilibrium thermal conductivity of mixture, 
"''mixture 

EQRAT 

l 

MISC 

OUT 

Equivalence ratio 

FIRSTP 

l 

SAVED 

OUT 

First pressure, P 

FIRS TV 

1 

SAVED 

OUT 

First volume, V 

FPC 

l 


OUT 

Fuel percent, 1/(1 + OF) 

FROZN 

1 

CONTRL 

TRANSP 

INPUT 

OUT 

Point is frozen if FROZN = T, logical variable 

FRZCON 

l 

EQUIVALENCE 

STATEMENT 

TRANSP 

Frozen thermal conductivity of mixture, 
* frozen 

G 

20,21 

DOUBLE 

TRANSP 

GAUSS 

Matrix coefficients, double precision 

GMAT 

20,21 

DIMENSION 

STATEMENT 

TRANSP 

Set equal to G, used for checking results 
from GAUSS, double precision 

HRRT 

20 

TRANS 

TRANSP 

Dimensionless enthalpy, H/RT 

IATOM 

3,101 

DIMENSION 

STATEMENT 

EQUIVALENCE 

STATEMENT 

INPUT 

Equivalenced to ATOM, used to identify elements 
in calculating molecular weights 

IMAT 

1 

INDX 

TRANSP 

Number of equations in GAUSS solution 

IND 

20 

SAVED 

TRANSP 

INPUT 

Index to identify species used in transport 
calculations 

INTCON 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

Internal thermal conductivity of mixture, 

X. ,, real variable 

internal 

INTRNL 

1 


OUT 

Internal energy of first point, U, real variable 

ISV 

1 

INDX 

TRANSP 

OUT 

Used as test in controlling transport output 
ISV ^ 0: more thermodynamic calculations to 

follow 

ISV “0: end of thermodynamic calculations 

of problem 

ITT 

1 

— 

OUT 

Current temperature expressed as integer 

IUSE 

100 

SPECES 

SEARCH 

INPUT 

Used as test to see if species is condensed 

LEWIS 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

OUT 

Lewis number, Le, real variable 

LLL 

1 

SAVED 

OUT 

Index to control spacing interval in transport 
output 

LLMT 

10 

MISC 

INPUT 

Alphameric symbols for elements 

LM 

1 

SAVED 

OUT 

Index of current point being processed in 
transport output 

MAXNM 

1 

DATA 

STATEMENT 

INPUT 

Maximum number of species allowed 

MAXNP 

1 

SAVED 

TRANSP 

INPUT 

OUT 

Index used in controlling transport output 

MONCON 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

Translational thermal conductivity of mixture, 

X , real variable 

trans 
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FORTRAN 

symbol 

Dimension 

Common 

label 

Transport 

subroutines 

used 


Description and comments 

N 

l 

TRANS 

TRANSP 

INPUT 

OUT 

Index of current point 

ND 

1 

DATA 

STATEMENT 

SEARCH 

TRANSP 

INPUT 

Indicates end of transport data 

NFZ 

l 

PERF 

INPUT 

OUT 

Index of freezing point 

NLM 

l 

INDX 

INPUT 

Number of elements in the system 

NM 

1 

SAVED 

TRANSP 

INPUT 

Number of species in transport calculations, 
n 

NODATA 

l 

CONTRL 

INPUT 

If NODATA « T, message is printed out when- 
ever cross section data are not found in 
the library - applies only to data for a 
pure species, logical variable 

NPT 

l 

INDX 

TRANSP 

Number of points in current set 

NR 

l 

TRANS 

TRANSP 

INPUT 

Number of chemical reactions, v 

NS 

1 

INDX 

SEARCH 

TRANSP 

INPUT 

Number of species in the thermodynamic 
calculations 

NSP 

1 


INPUT 

Special index used to change A array to 
add an element which has been omitted 
through use of an OMIT card 

NTAB 

100 

TRANS 

TRANSP 

INPUT 

1 

Code to specify type of data used in 
transport calculations: 

NTB 

1 


SEARCH 

TRANSP 

INPUT 

J 

► = 0 if relaxation data 

= 1 if transport cross sections 

NTP 

1 


SEARCH 

TRANSP 

INPUT 

LGRNGE 

1 

Number of entries in table of transport 
or relaxation data (data stored in 
► TABLES) 

NTT 

100 

TRANS 

TRANSP 

INPUT 

- 


OF 

1 

MISC 

OUT 

Oxidant-to-fuel weight ratio 

OMEGA 

20,20 

TRANS 

TRANSP 

INPUT 

—(2 2) 

Viscosity cross section, D ’ 

PI 

1 

DATA 

STATEMENT 

TRANSP 

71 

3.14159265 

PP 

1 

MISC 

TRANSP 

OUT 

Pressure of current point 

PPP 

13 

POINTS 

TRANSP 

OUT 

Pressure schedule for output 

PREQ 

1 

EQUIVALENCE 
STATEMENT - 

TRANSP 

Equilibrium Prandtl number of mixture, 
Pr 

eq 

PRFROZ 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

Frozen Prandtl number of mixture, 
^ r frozen 

PUNCH 

1 

CONTRL 

OUT 

If PUNCH = T output is included on 
punched cards, logical variable 

R 

1 

MISC 

TRANSP 

OUT 

Universal gas constant, 

1.987165 cal/(g-mole) (K) or 
8.31430 J/ (kg-mole) (K) 
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FORTRAN 

Dimension 

— 

Common 



Transport 


Description and comments 

symbol 


label 

subroutines 






used 



REACON 

l 

EQUIVALENCE 

STATEMENT 

TRANSP 

Reaction thermal conductivity of mixture, X 

J reaction 

RELXTN 

20 

TRANS 

TRANSP 

Temporary storage used in calculating ^i n t erna i 

ROTM 

ROTN 

20 

1 

TRANS 

TRANSP 

INPUT 

SEARCH 

TRANSP 

> 




►Number of rotational degrees of freedom 

ROTNM 

80 

TRANS 

TRANSP 

INPUT 

J 


RPVT 

1 

DATA 

STATEMENT 

TRANSP 

Universal gas constant, 82.0562 (cm ) (atm) / (g-mole) / (K) 

SPECE 

2,3 

DIMENSION 

STATEMENT 

SEARCH 

Alphameric identification of current interaction, 
integer variable 



TRANS 

TRANSP 



SPECIE 

100,2,3 

TRANS 

TRANSP 

INPUT 

Alphameric identification of interaction which is put 
in core storage with TABLES, integer variable 

STC 

17,20 

TRANS 

TRANSP 

INPUT 

Table of stoichiometric coefficients , a^ 

STCF 

17,20 

TRANS 

INPUT 

Intermediate storage of stoichiometric coefficients 

STCOEF 

20 

TRANS 

INPUT 

Result of dividing stoichiometric coefficients of 
each species (in the reaction to be eliminated) 
by C0EFF 

STORE 

52,16 

SAVED 

OUT 

Temporary storage of transport calculations, while 
thermodynamic calculations are continued 

SUB 

100,3 

SPECES 

SEARCH 

TRANSP 

INPUT 

Alphameric name of species included in thermodynamic 
calculations, integer variable 

TABLES 

TABLS 

100,20,3 

20,3 

TRANS 

DIMENSION 

STATEMENT 

TRANSP 

INPUT 

SEARCH 

> 

** 

^Tables of cross sections and relaxation data 

TEM 

100,20 

TRANS 

TRANSP 

INPUT 

Temperature schedule for TABLES 

TEMPR 

20 

DIMENSION 

STATEMENT 

SEARCH 

Temperature schedule for TABLS 

TESTEN 

1 


INPUT 





TRNSPT 

1 

CONTRL 

LINK 

If TRNSPT = F transport calculations are omitted, 
logical variable 

TT 

1 

MISC 

TRANSP 

INPUT 

OUT 

LGRNGE 

Temperature of current point 

Xu 

13 

POINTS 

TRANSP 

Temperature schedule for output 

vise 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

Viscosity of mixture, n . 

WM 

13 

POINTS 

INPUT 

Molecular weight of the mixture in thermodynamic 
calculations 

WMOL 

20 

SAVED 

TRANSP 

INPUT 

Molecular weight of pure species, M^^ 

WTMOL 

1 

EQUIVALENCE 

STATEMENT 

TRANSP 

Molecular weight of the mixture in transport 
calculations, M 
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FORTRAN 

symbol 

Dimension 

Common 

label 

Transport 

subroutines 

used 

Description and comments 

X 

20 

DOUBLE 

TRANSP 

GAUSS 

Answer region for matrix solution, double precision 

xs 

20 

SAVED 

TRANSP 

INPUT 

Mole fraction of species used in transport 
calculations 

XSKL 

20,20 

DIMENSION 

STATEMENT 

TRANSP 

(XS(k)-XS(l ))' 1 

Y 

20,3 

INTERP 

INPUT 

lgrnge 

Table in subroutine LGRNGE interpolation 

z 

20 

INTERP 

INPUT 

LGRNGE 

Argument in subroutine LGRNGE interpolation 

ZROT 

20 

TRANS 

TRANSP 

INPUT 

Rotational collision number, Z 

rot 

ZVIB 

20 

TRANS 

TRANSP 

INPUT 

Vibrational collision number, Z 

vib 
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APPENDIX C 


PROGRAM LISTING 


MAIN PROGRAM LINK 

LINK 

LINKS SUBROUTINES FOR THERMODYNAMIC ANO TRANSPORT CALCULATIONS FORLINK 

LINK 

DOUBLE PRECISION G,X LINK 

LINK 

REAL MI X ( 15) LINK 

INTEGER SPECE LINK 

INTEGER OATA, OMIT, ENSERT, RE AC , BLANK, THRM , END, SUB LINK 

LINK 

LOGICAL SHOCK, MMHG , UV , I C , DETN , S I UN I T , EUN I TS ,NSQM LINK 

LOGICAL HP ,SP,TP,NEWR, I ONS ,MCLE S ,FROZ , EQL , PSI A , RKT , VOL , T V, SV LINK 

LOGICAL FA,OF,ERATIO,FPCT,.OTTO LINK 

LOGICAL 7RNSPT, FROZN, PUNCH, NCDATA LINK 

LINK 

COMMON /POINTS/HSU M( 13) ,SSUM(13) ,CPR (13 ) ,DLVTP ( 13 ) , DLVPT { 13 ) , LINK 

1 GAMMAS! 13 ) ,P< 26) ,T(52) ,V(26 ) , PP0 ( 1 3 ) , WM ( 1 3 ) , SONVEL ( 13) ,TTT( 13) t LINK 

2 VLM{ 13 ) ,TCTN( 13 ) LINK 

COMMON /SPECES/COEF! 2,7, 100) , S ( ICO ) ,H0 ( 100 ) ,DELN(100 ) , DUMMY! 10^ ) , LINK 

1 EN ( 100 ,13) ,ENLN( ICO ) , A ( 10, ICO) , SUB! 100,3) , I USE ( IOC ) , TEMP! 50, 2 ) LINK 

COMMON /MISC/ENN,SUMN,TT,.SO* ATOM (3, 101 > , LL MT < 10 ) , 80 ( 10 ) ,BOP ( 10,2 ) ,LINKi 

1 TM, TLOW,TMID, THIGH, PP,CPSUM, OF, EQRAT,FPCT,R,RR,HSUB0,AM(2) , LINK 

2 HPP! 2) „RH! 2) , VM I N ( 2 ) ,.VPL S I 2 ) , WP { 2 ) , DAT A ( 22 ) , N AME < 1 5 , 5 ) , LINK 

3 ANUMI 15, 5 ) , P ECW T ( 15 ) , ENTH ( 1 5 ) , F AZ ( 15 ) , RTEMP ( 15 ) ,FOX ( 15 ) , DENS t 15 ) , L INK 

4 RHOP , RMW! 15) ,TLN,CR,OXF( 15) ,ENNL , TRACE , LLMTS ( 10 ) , SPOP! 10*2) LINK 

COMMON /DOUBLE/ G( 20,21 ),. X ( 20 ) LINK 

COMMON /INDX/ IDEPUG,CONVG,TP,HP, SP, I SV, NPP, MOLES, NP, N'T, NPT ,NLM, LINK 

1 NS,KMAT, IMAT, 101, I OF , NOF , NOM I T , I P , NE WR , N SUB , NSUP , R K T ,DETN , SHOCK , LINK 

2 I ON S » NC , N S ERT , J SOL , JL I Q ,-KAS E *NRE AC » I C » J S 1 » VOL , I T , C A LCH » NLS , LOG V , LINK 

3 ISUP, I SUB, ITNUM, ITM, INCDFZ, INCDEQ,CPRF, I P P , SEQL , PC P LT LINK 

COMMON /P ERF/PCP ( 22 ) , VMOC (13 ) ,-S P I M ( 1 3 ) , VAC I (13) ,SUBAR(13) , LINK 

1 SUPAR! 12),APP(13),AEAT(13) , CSTR , EQL , FROZ , SSO , ARE A , A WT ,NFZ , LINK 

2 APPL,ARATIQ,ELN LINK 

COMMON /SAVEC/SLN! IOC ) , I QSAVE , FN SAVE ,ENL SA V , LSA VE , J S GLS , JL I QS , LINK 

1 LLL,LM,MAXNP,ST0RE(52,16).,XS(20),WM0L(20) ,IND(20) ,NM, LINK 

2 F IRSTP ,F IRSTV LINK 

COMMON /CONTRL/TRNSPT,FROZN, PUNCH, NODATA LINK 

LINK 

LINK 

LM = 0 LINK 

MAXNP = 0 LINK 

NEWR = .FALSE. LINK 

NLS = 0 LINK 

1 CALL MAIN LINK 

2 IF(NPT.EQ.O) GO TO 1 LINK 

IF ( .NOT. RKT. AND. .NOT. SHOCK ) GO TO 7 LINK 

IF(.NGT.ECL) FROZN = .TRUE. LINK 

I F { EQL ) FROZN = .FALSE. LINK 

7 IF! .NQT.TRNSPT) GO TO 8 LINK 

CALL TRANSP LINK 

8 IF(.NOT.RKT) GO TO 3 LINK 

CALL ROCK T 1 ($1) LINK 

GC TO 2 LINK 

2 IF t .NOT .DETN ) GO TO A LINK 

CALL DE TON 1 ($1) LINK 

GO TO 2 LINK 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1A 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3 A 

35 

36 

37 

38 

39 
AO 
A 1 
42 
A3 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
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4 IF( .NOT.SHCCK ) GC TO 5 

LINK 

57 

CALL SHCK1 (tl) 

LINK 

5P 

GO TC 2 

LINK 

59 

5 CONTINUE 

LINK 

60 

CALL THERM1 ($1) 

LINK 

61 

GO TO 2 

LINK 

62 

END 

LINK 

63 



SUBROUTINE GAUSS 


GAUS 

1 




GAtJS 

2 


SOLVE ANY LINEAR SET OF UP TC 20 EQUATIONS 


GAUS 

3 


NUMBER CF EQUATIONS = IMAT 


GAUS 

4 




GAUS 

5 


COUPLE PRECISION G » X , COE FX ( 20 ). , SUM , Z 


GAUS 

6 




GAUS 

7 


COMMON/ DOUeLE/G( 20,21 ) t X(20) 


GAUS 

8 


COMMON / I NDX / IDEBUG, CONVG, TP ,HP » SP , I SV ,NPP , MOLE S , 

NP , NT, NPT , NLM , 

GAUS 

9 


1 NS,KMAT,IMAT,IQ1, I OF , NOF »N0MI T , I P , NF WR , N SUB , NSUP 

,RKT,DETN, SHOCK , 

GAUS 

10 


2 ICNS,NC,NSERT, JSOL, JL l Q ,-KA S E , NREAC , IC , JS l ,V0L, IT 

,CALCH,NLS,LOGV, 

GAUS 

11 


3 I SUP, I SUB , I TNUM , I TM , I NCDF Z , I NC DEQ , C PR F , I PP , SEQL , 

PCPLT 

GAUS 

12 




GAUS 

13 


DATA BIGNC/l.E+38/ 


GAUS 

14 




GAUS 

15 


BEGIN ELIMINATION OF NNTH VARIABLE 


GAUS 

16 




GAUS 

17 


IUSE1 = IMAT+1 


GAUS 

18 

6 

DO 45 NN= 1 » IMAT 


GAUS 

19 


I F ( NN- I MAT ) 8,83,8 


GAUS 

20 

83 

I F { G I NN » NN ) 1 31,23,31 


GAUS 

21 




GAUS 

22 


SEARCH FOR MAXIMUM COEFFICIENT IN EACH ROW 


GAUS 

23 




GAUS 

24 

8 

DC 18 I =NN , IMAT 


GAUS 

25 


CCEFX ( I ) = B IGNO 


GAUS 

26 


I F ( G ( I,NN).EQ.O. ) GC TO 18 


GAUS 

27 


COEFXI I ) = 0 • 


GAUS 

28 


CC 10 J=NN»IUSE1 


GAUS 

29 


SUM = G( I , J I 


GAUS 

30 


I F ( SUM* LT • C * ) SUM=-SUM 


GAUS 

31 


IFU.NE.NN) GO TO 9 


GAUS 

32 


Z = SUM 


GAUS 

33 


GC TO 1C 


GAUS 

34 

5 

IFISUM.GT.COEFXI I) ) COEFX(I) = SUM 


GAUS 

35 

K 

CONTINUE 


GAUS 

36 


COEFX ( I ) = COEFX ( I )/Z 


GAUS 

37 

IE 

CONT INUE 


GAUS 

38 




GAUS 

39 


LOCATE ROW WITH SMALLEST MAXIMUM COEFFICIENT 


GAUS 

40 




GAUS 

41 


TEMP = BIGNO 


GAUS 

42 


1*0 


GAUS 

43 

2C 

DO 22 J=NN,IMAT 


GAUS 

44 


IF (COEFXI JI-TEMP) 87 , 2 2 ,.22 


GAUS 

45 

87 

TEMP = COEFX( J ) 


GAUS 

46 


I*J 


GAUS 

47 

22 

CONT INUE 


GAUS 

48 


I F ( I ) 28,23,28 


GAUS 

49 
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C INDEX I LOCATES EQUATION TO BE USED FOR ELIMINATING THE NTH 

C VARIABLE FROM THE REMAINING EQUATIONS 

C 

C INTERCHANGE EQUATIONS I AND NN 

C 

28 IF (NN-I ) 29,31,29 

29 DC 3C J=NN» IUSE1 
Z*C-( I ,J ) 

G( I , J ) = G ( NN , J ) 

GINN, J)=2 
3C CONTINUE 
C 

C DIVIDE NTH ROW BY NTH DIAGONAL ELEMENT AND ELIMINATE THE NTH 

C VARIABLE FROM THE REMAINING EQUATIONS 

C 

31 K = NN +: 1 

DC 36 J - K, IUSE1 
IF (G<NN,NN J .EG.O. ) GO TO 23 
G I NN , J ) = G ( NN , J ) / G (NN,NN) 

36 CONTINUE 

IF(K-TUSEl) 88, A5 » 88 
88 DO AA I=K, IMAT 
AC DC AA J = K , I USE 1 

G ( I , J ) = G ( I , J ) - G ( I ,NN ) *G( NN , J ) 

A A CONTINUE 
A 5 CONTINUE 
C 

C BACK SCL VE FOR THE VARIABLES 

C 

K = IMAT 
A 7 J = K + 1 

X ( K ) = O.CDO 
SUM = 0.0 

I F ( I M AT- J ) 5 1 , A8 , A8 

A £ DC 50 1 = J , IMAT 

SUM = SUM 4 G I K, I ) * XU) 

50 CONTINUE 

51 X t K 1 = G'(K, rUSEl I - SUM 
K = K - 1 

I F ( K ) A7 , 1 5 1 , A7 
23 IMAT = IMAT- 1 
151 RETURN 
END 


GAUS 50 
GAUS 51 
GAUS 52 
GAUS 53 
GAUS 5 A 
GAUS 55 
GAUS 56 
GAUS 57 
GAUS 58 
GAUS 59 
GAUS 60 
GAUS 61 
GAUS 62 
GAUS 63 
GAUS 6A 
GAUS 65 
GAUS 66 
GAUS 67 
GAUS 68 
GAUS 69 
GAUS 70 
GAUS 71 
GAUS 72 
GAUS 73 
GAUS 7 A 
GAUS 75 
GAUS 76 
GAUS 77 
GAUS 78 
GAUS 79 
GAUS 80 
GAUS 81 
GAUS 82 
GAUS 83 
GAUS 8 A 
GAUS 85 
GAUS 86 
GAUS 87 
GAUS 88 
GAUS 89 
GAUS 90 
GAUS 91 
GAUS 92 
GAUS 93 


C 

SUBROUTINE MAIN MAIN 1 
C MAIN 2 
C MAIN PROGRAM FOR THERMODYNAMIC CALCULATIONS MAIN 3 
C MAIN A 

DOUBLE PRECISION G,X MAIN 5 
C MAIN 6 
C THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR MAIN 7 
C IBM 360 MACHINES ONLY MAIN 8 
C MAIN 9 
C DOUBLE PRECISION HSUM , SSUM , CPR , DLVTP , DLVPT , GAMMAS MAIN 10 
C D0U8LE PRECISION COEF , S , EN ,ENLN , HO , DELN MAIN 11 


i 
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c 


REAL M I X ( 1 5 ) 

INTEGER SPECE 

INTEGER DATA, OMIT, ENSERT, REAC , BLANK, THRM, END, SUB 
LOGICAL SHOCK, MMHG,UV, I C ,.DETN , S I UN I T , EUN I TS »NSQM ,C AL CH 
LOGICAL HP,SP,TP,NEWR , I ONS , MOLE S , FROZ , EQL » P S I A , RKT , VOL, T V , S V 
LOGICAL FA,0F*6RATI0,FPCT,0TT0 
LOGICAL. TRNSPT,FROZN,PUNCH,NCDATA 

DIMENSION DM I T ( 3 » 3 ) , NCD < 4 ). , ENSERT ( 3 , 3 ) ,RH0(26) , L VP ( 2 ) ♦ VM < 2 ) , 
1 V L ( 2 6 ) ,D AT ( 2 2 ) 

DIMENSION SPECE ( 2*3) , TEMPR ( 2C ). , T ABL S ( 20 , 3 ) 


COMMON 


SPECE , TEMPR , TABLS 


COMMON /FOINTS/HSUMl 13) , SSUM (13 ) ,CPR( 13) ,DLVTP( 13) ,DLVPT(13) , 

1 GAMMAS ( 13),P(26),T(52),V(13),PPP(13),WM<13) , SONVEU 13) ,TTT( 13) , 

2 VLM ( 13 ) »TOTN ( 13 ) 

CCMMON /SPECES/COEF (2,7, 100) , S ( 100 ) , HO ( 1 00 ) ,DELN (IOC ) , DUMMY ( 100 ) , 
1 EN< ICO, 13 ) ,ENLN( 100 ) ,A( 10, 100) , SUB ( 100,3) , I USE ( 100 ) , TEMP (50, 2 ) 
COMMON /N I SC/ENN,SUMN,TT»SO, ATOM (3, 101 ) , LL MT ( 10 ) ,B0 ( 10) , BOP ( 10,2 ) 

1 TM,TL0W,TMIDVTHIGH^PP,CPSUM,0F,EQRAT,FPCT,R,RR,HSUB0,AM(2) , 

2 HPP ( 2 ) ,RH ( 2 ) , VM I N ( 2 ) ,VPLS(2). »WP(2) ,DATA(22) ,NAME(15,5) , 

3 ANUM(15,5),PECWTl 15),ENTH(15) ,FAZ(15).,RTEMP(15) ,FCX(15) ,.DENS( 15) 

4 RHOP , RMV ( 15) , TLN,CR,OXF (15) ,FNNL , TRACE , LLMTS ( 10 ) , SBOP( 10, 2 ) 
COMMON /DOUBLE/ G( 20,21 W X(20) 

COMMON /INCX/IDEBUG,CONVG,TP ,HP, SP, I SV , NPP , MOLE S ,NP , NT, NPT , NLM , 

1 NS, KM AT, I MAT, IQl, I OF , NOF ,.NOM I T , I P ,NEWR , NSUB ,NSUP ,R KT , DETN, SHOCK , 

2 IONS,NC,NSERT, JSOL, JLI Q,KASE» NREAC, IC, JS1 ,VOL, I T ,C A l CH, NLS , LOGV , 

3 T SUP-, I SUB,ITNUM, ITM, INCDFZ, INCDEQ,CPRF , I PP , SEOL ,PCPLT 
CCMMON /FERF/PCP ( 22) , VMOC( 13)„SPIM( 13) ,VACI < 1 3 ) , SUB AR ( 13 ) ', 

1 SUP AR ( 13 ) ,APP( 13) ,AEAT( 13) , CSTR , E QL , FROZ , SSO , ARE A , A WT ,NFZ , 

2 APPL , AR A T 10 , ELN 

CCMMON /CON TRL/TRNSPT,FROZN, PUNCH, NODATA 

ECU I VALENCE ( OMI T < ENLN ) , ( ENSERT , DELN ) , (OXF,MIX) , 

1 ( OF , CX FL ) , ( RHO , P , VL ) , ( SO,.SO), ( OTTO, CPCVFR ) , { DAT A , DA T ) 

DATA MIT/4 FOMIT/,BL AN K/1H /, P S I A/4HP S I A / , RE AC /4HRE A C. / , I Z/2H00/ , 

1 NMLT/4HNAME/V IE/1HE/, INSERT /4H INSE/,THRM/4HTHER/»END/3HEND/ , 

2 GAS/1HG/ , ND/4HL AST / 

NAMELIST/ INPT2/KASE, T ,P , P S I A ,MMHG , NSQM , V ,RHO, ER AT 10 , QF , FPCT , FA , 
IMIXt TP V HF « SP,TV,UV, SV,RK T, SHOCK, DETN, OTTO, CR, SO, SC, IONS, I DEBUG, 
2TRACE,SIUN IT, EUN ITS, TRNSPT ,FROZN , PUNCH, NODATA 

NEWR = .FALSE. 

1 WR ITE ( 6 ,4C0 ) 

ACC FORM A T ( IF 1 ) 

RR = 8314.3 
R = PR/4184. 

203 REAC (5,204) ( DATA ( I ) , I =1 , 15 ) 

204 FCRMATt 5(3A4,3X) ) 

WRITE ( 6,2045) (DATA( I), 1=1,15) 

2045 FORMAT! 1>, 5(3A4,3X) ) 

I F ( 0 ATA ( 1 ) . EQ.THRM ) GO TO 9C 
I F ( DA T A ( 1 ) .EQ.REAC ) GO TO 11 
IF ( DAT A ( 1 ) . EQ.M I T ) GO TO 205 
IF (DATA(l).EQ. INSERT) GO TO 180 
IF(DATA(1 ) .EQ.NMLT ) GO TO 210 
IF(DATA(1).E0. BLANK) GO TO 203 

1023 WRITE(6„1024) 

1024 FORMAT { 4 OHO ERROR IN ABOVE CARD. 

GC TO 203 


CONTENTS IGNORED. ) 
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11 NSERT = 0 

WOLES = .FALSE. 

CALL REACT 

IF(NLM.EO.O) WRITE(6,52) 

52 FORMAT ( 24 HC ERROR IN REACTANT CAROS) 

CALCH = .FALSE. 

DC 755 N= 1 tNREAC 

If (NAME (IS, 5). EQ. IZ) CALCH-. TRUE. 

755 CONTINUE 
GO TC 202 
C 

C READ THERMO AND TRANSPORT DATA FROM CARDS AND STORE ON TAPE 4 

C 

90 NEWR = .TRUE. 

REWIND 4 

RE A D ( 5 » 5 ) TLOW»TMID»THIGH 
5 FORMAT (BF10.3) 

WRITE (A, 5) TLOW»TMlCt THIGH 
97 READ (5,10)(DAT( I),I=1,16),NCD<1) 

10 FORMAT! 3 A A, 6X , 2A 3 , 4 ( A 2 , F3. 0) , A1 , 2F10.3 , I 15 ) 

IFIDATAI 1 ).EQ. BLANK) DATA(1)=END 
WRITE (A, 10) (DAT(I) ,1*1,16) 

IF(DATA< 1 ).NE.END) GO TO 18 
GO TO 13 

ie READ!5,2C ) (DAT! I ) ♦ 1 = 1,5) *NCD (2) ♦ ( DAT ( J ) , J=6 , 10 ) ,NCC ( 3 ) , !OAT(K) . 
1K*11»14)»NCC'(4) 

20 FORMAT! 5E 1 5 . 8 ♦ 1 5 /5E 15. 8 , I 5/4E15 . 8 , 1 20 ) 

WRITE (4,21)(DAT(I)*.I-1,14) 

21 FORMAT! 5E 1 5 . 8/5E 1 5 . 8/4E 15. 8 )* 

DO 25 1 = 1,4 

-IF ( NCD ( I ).EO.I ) GO TO 25 
WR ITE ( 6 >22 ) (DATA! J),J=1,.3) 

22 FORMAT! 28HCERR0R IN ORDER OF CARDS FOR ,3A4) 

25 CONTINUE 

GO TO 97 
C 

C TRANSPORT DATA CARDS 

C 

13 READ! 5» 1A ) ! ( SPECE ( I , L ) , L=1 , 3 ) » I =1 , 2 ) , NTP , NTB , ROTN 
1A FCRMAT!2(3A4,6X),2I5,F24.1) 

WRITE! A) ( ( SPECE! I ,L),L=1»3) , I = 1 , 2 ) , NTP , NTS , ROTN 
TF(SPECEdfl) .EO.ND) GO TO 203 

READ! 5* 15) ( TEMPR ( I ), (TABLS! I , L ) , L=1 , 3 ) , I *1 , NTP ) 

WRITE(A) ( TEMPR! I ) , ( TABLS! I ,L) , L fe l , 3 ) , 1=1 ,NTP) 

15 FORMAT! AF1C. A) 

GO TO 13 
C 
C 

C CHECK INSERT CARDS 
C 

18C DC 185 1=4*15*3 

IF ! DATA! I l.EQ. BLANK) GO TO 185 

NSERT = ISSERT + 1 

ENSERT! 1, NSERT) = DATA! I), 

ENSERT! 2, NSERT) = DATA! 1+1) 

ENSERT! 3, NSERT) = DATA! 1+2) 

185 CONTINUE 
GO TC 202 
C 

C CHECK OMIT CARDS 

C 

2C5 DC 208 1=4* 15*3 

IF(DATA(I).EQ. BLANK) GO TO 208 

NCMIT = NOMIT+1 

OMIT! l.NOMIT) = DATA ( I ) 
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oug 


CMIT(2,NCMIT> = DATA ( 1+1 ) 

OM I T { 3 » NCM I T ) = DATA { I +2 ) 

20 6 CONTINUE 

NEWR = . TRUE • 

REWIND A 
GC TO 202 

BEGIN NAMELIST INPT2 

21C DC 299 1=1*26 
P ( I ) = 0. 

vm = o, 

299 CONTINUE 

DO 3C6 1=1*52 
T ( I )=C. 

3C£ CONTINUE 
TRACE = C. 

SO = c. 

VI = c. 

V2 = C. 

CR = C • 

RWCP = 0. 

K A S E = 0 
TP = .FALSE. 

HP=. FALSE. 

SP=. FALSE . 

TV = .FALSE. 

CIV = .FALSE. 

SV = .FALSE. 

OTTO = .FALSE. 

RKT = .FALSE. 

SHOCK = .FALSE. 

D'ETN = .FALSE. 

VOL = .FALSE. 

MMHG = .FALSE. 

PSIA = .FALSE. 

NSOM = .FALSE. 

SI UNIT = .FALSE. 

EUNITS = .FALSE. 

IONS = .FALSE. 

>IDEBUG = 0 
FA= .FALSE. 

OF * .FALSE. 

ERATIO = .FALSE. 

FPCT= .FALSE. 

TRNSPT = .TRUE. 

F-ROZN = .FALSE. 

PUNCH * .FALSE. 

NCDATA* .FALSE. 

DC 303 1=1,15 
M I X ( I ) = 0 . 

303 CONTINUE 
NT = 1 

ECL = .TRUE. 

READI5, INPT2) 

WRITEt6*INPT2> 

IF( .NOT. CETN. AND. .NOT. SHOCK) GO TO 

DO 1300 N=1 ,NREAC 

IF(FAZIN) .NE.GAS) GO TO 1301 

1300 CONTINUE 
GO TO 1303 

1301 WRITE(6*1302) 

1302 F0RMAT(60H0C0NDENSED REACTANTS NOT 
1LEMS ) 

GC TO 1 
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1302 IF C .NCT.TV.AND..NOT.LV, AND..N0T.SV) GO TO 304 
VCL = .TRUE. 

CO 1304 1=1,26 s 

IF(RHO( I J.NE.O. ) VL(I) = l./RHOU) 

I F ( V ( I ) .NE.O. ) VL ( I ) —V C I » 

IF ( V L C I ) .EC.O. ) GO TO 1305 
NP = I 

1304 CONTINUE 

1305 TP = TV 
HP = UV 
SP = SV 
GC TO 322 

304 DC 305 1=1,26 

IF { P ( I ) .EC.O. > GO TO 322 
NP = I 

IF ( MMHG ) P ( NP ) = P { NP ) / 760. 

IF(PSIA) P(NP)=PfNP)/14.696C06 
IF(NSQM) P(NP)=P(NP)/101325. 

305 CONTINUE 

322 DO 307 IT = 1*52 

IF (T(IT).EQ.O.) GO TO 722 
NT = IT 
307 CONTINUE 
722 DC 625 IST=1,15 

I F < MIXUST I.NE.G. > GO TO 323 
IFfIST.NE.il GO TO 745 
WR ITE ( 6 *1 24 ) 

724 FORMAT ( 48HCN0 INPT2 VALUE GIVEN FOR OF, EQRAT, FA, OR FPCT 
IF IWPm.NE.O.) OXFL = WP(1)/WP(2) 

GC TO 332 

322 CXFL = MIX! 1ST) 

IF(FA) OXFL = 1 • /M I X { 1ST) 

IF(FPCT) OXFL = ( 100.-M I X ( I ST ) )./M I X ( 1ST) 

IF ( .NOT . E R AT 1 0 ) GO TO 333 
ECRAT = MX( 1ST) 

IF ( EORAT.EC.l. ) EORAT = 1.0C00045 

OXFL = (-E0RAT*VMIN(2)-VPLS<2))/IVPLS{1)+EGRAT*VMIN{1)» 

322 OXF I 1ST I = CXFL 
NCF = 1ST 
625 CONTINUE 

745 IF {.NOT. IONS) GO TO 746 
IFILLPT (NLM).EQ.IE) GO TO 746 
NLM = NLP*1 

IF(LLMT (NLP).NE. IE) NEWR-.TRUE. 

REWIND 4 
LLMT(NLM) ^ IE 
8CP ( NLM , 1 ) = 0. 

BOP ( NLM , 2 ) * 0. 

GC TC 748 

746 I F ( LLMT (NLM) .NE. IE) GO TO 748 
DO 747 J = 1 , N S 

IF( A (NLM, J I.NE.O. ) I USE ( J ) =-10000 

747 CONTINUE 
NLP = NLP-1 

748 IF(NEWR) CALL SEARCF 
IF(NS.EC.O) GO TO 1 

C 

C INITIAL ESTIMATES 
C 

SO =; SO/P 
ENN = .1 

ENNL = -2. 3025851 
SliMN = ENN 
XI = NS - NC 
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XI = ENN/Xl 
XLN = ALOG ( XI ) 

DO 432 J=1,NS 

IFIIUSE ( JI.GT.O) I USE ( J ) =- 1 USE ( J ) 

I F ( IUSEIJJ.EQ. -10000. AND. IONS) IUSEU) =0 

EN ( J » 1 ) = 0. 

ENLN(J) = 0. 

IF ( ILSEI J J.NE.O) GC TO 432 
E N { J » 1 ) = XI 
ENLN(J) = XLN 
432 CONTINUE 

IC1 = NLM+1 

IF INC. EQ.O. OR. NSERT. EQ.O). GC TO 790 

CO 3C2 1=1 » NSERT 

INC = 0 

DC 3C1 J= 1 »N S 

IFULSEt J UEQ.O) GO TO 301 

INC = INC+'l 

IFISUel J,l).NE.ENSERTtl,I) ) GO TO 301 
I F < SUB ( J,2 ) .NE.ENSERTI2, I):) GO TO 301 
I F ( SUB ( J, 31.NE.ENSERTC3, I )) GO TO 301 
IF(TU) . E Q • C . ) GO TO 295 

IFCT(l) .IT. TEMPI INC,1 ).OR.T{ 1I.GT. TEMPI INC, 2) ) GC TO 301 
29 5 IG1 = IGl+:i 

I U S E ( J ) =» — I USE { J ) 

GO TO 302 

301 CONTINUE 

302 CONTINUE 
NSERT = 0 

790 CONTINUE 

I F ( . NOT. TP. AND. .NOT. HP. AND.. NOT. SP) GO TO 791 
CALL THERMP 
GC TC 800 

791 CONTINUE 
IF(DETN) CALL DETON 
IF(RKT) CALL ROCKET 
IF( SHOCK) CALL SUCK 

800 RETURN 
END 
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C 

c 

c 

c 


c 


SUBROUTINE REACT RE AC 

RE AC 

LOGICAL HP, SP, TP,CONVG»NEWR, IONS, MOLES, ECL , FROZ , VOL RE AC 

RE AC 

DIMENSION ANAMEI 15,5) ,V( 10) RE AC 

RE AC 

COMMON /MISC/ENN»SUMN>TT».SO»ATOM(3»lOl),LLMT{10) , BC ( 10 ) , BOP ( 10, 2 ) , RE AC 

1 TM,TLOW,TMID,THIGH,PP,CPSUM,OF,EQRAT,FPCT,R,RR,HSUBO»AM<2) , RE AC 

2 HPP (2) ,RH(2), VMIN(2),VPLS(2) ,WP(2) ,DATA(22) ,NAMF(15,5) , RE AC 

3 ANUMU5,5 ) ,PECWT( 15 ) , ENTH 1 1 5 ) ,F AZ ( 1 5 ) ,RTEMP ( 1 5 ) ,FCX < 15 ) , DENS 1 1 5 ) , REAC 

4 RHOP,RMWI 15) iTLN,CR»0XF(15) ,ENNL, TRACE ,LLMTS ( 10 ) , SBOPI 10, 2 ) RE AC 

COMMON AINCX/IDEBUG,CONVG,.TP,HP,SP, I SV ,NPP , MOLE S ,NP , N T, NPT , NLM , RE AC 

1 NS,KMAT, IMATV IQ I, IOF »NOF *NON I T , I P , NE W , NSUB , NSUP ,RKT ,DETN , SHOCK , RE AC 

2 IONS,NC,NSERT,J$OL, JL I Q ,KASE ,NRE AC , I C , JS1 , VOL, I T,C A LCH , NLS » LOGV » RE AC 

3 ISUP,ISUB,ITNUM,ITM,INCDFZ,INCDEQ,CPRF,IPP,SEQL,PCPLT RE AC 

REAC 

EQUIVALENCE ( NAME , ANAME ),< NLM ,L ), I BLANK , LANK ) REAC 


1 
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c 



REAC 

18 



DATA M0L/1FM/ j0X/lH0/,LANK/lH / , I ZERO/2HOO / , ZER0/1F0 / 

REAC 

19 

c 



REAC 

20 



DO 10 K=s 1 » 2 

REAC 

21 



WP(K )-0. 

REAC 

22 



HPP ( K ) =0 . 

REAC 

23 



RH(K )=0. 

REAC 

24 



VPL S ( K ) =»0. 

REAC 

25 



VMIN(K j=0. 

REAC 

26 



AN ( K ) = 0 . 

REAC 

27 



DC 8 J=l,10 

REAC 

28 



LLMT < J)=0 

REAC 

29 



BOP ( J'*K 1=0 * 

REAC 

30 


e 

CCNT INUE 

REAC 

31 


10 

CONTINUE 

REAC 

32 



NFUEL = 0 

REAC 

33 



N* 1 

REAC 

34 



L* 1 

REAC 

35 

c 



REAC 

36 

c 


READ AND WRITE REACTANT CARDS 

REAC 

37 

c 



REAC 

38 


20 

READ (5, 21) (NAME! N* I ) , ANUMI N , I );, I =1 , 5 ) , PEC WT ( N ) , MOLE , ENTH < N ) , 

REAC 

39 



1 FAZ(N) ,RTEMP(N) ,FOX(N) ,DENS(N) 

REAC 

40 


21 

FORMAT! 5<A2,F7.5 ) ,F7.5, A 1 ,.F9 . 5 , A 1 , F8. 5 , A 1 , F8. 5 ) 

REAC 

41 



IF(NAMF(N,1).EQ.LANK) GO TO 200 

REAC 

42 



IF ( L • EQ *0 ) GO TO 20 

REAC 

43 



WRITE <6,31){NAME(N,I),ANUM(N,.I) ,1 = 1,5) ,PECWT(N) ,MOLE,ENTH( N) , 

REAC 

44 



1 FAZ(N) ,RTEMPIN) ,FOX(N) ,DENSIN) 

REAC 

45 


31 

FORMAT ( IX, 5 ( A2,1X*F7.4,2X) , F 8. 4 , 2X , A 1 , F 1 1, 2 , 2X , A 1 , 2 X ,F8.3',2X, 

REAC 

46 



1 A1,3X,F6.5) 

REAC 

47 


3 5 

I F ( MOLE* EQ .MOL ) MOLES*. TRUE. 

REAC 

48 

c 



REAC 

49 

c 


IF OXIDANT, K* 1 

REAC 

50 

c 


IF FUEL, N n 2 

REAC 

51 

c 



REAC 

52 



IF(FOX(N).EQ.ZERO) FOXIN)=?OX 

REAC 

53 



K =; 1 

REAC 

54 



IF ( FOX ( N ) • EQ.OX ) GO TO 37 

REAC 

55 



K = 2 

REAC 

56 



NFUEL = NFUEL+1 

REAC 

57 


37 

DO 38 J= 1 , 15 

REAC 

58 



DAT A ( J ) * 0. 

REAC 

59 


36 

CONTINUE 

REAC 

60 



RM=C . 

REAC 

61 

c 



REAC 

62 

c 


STORE ATOMIC SYMBOLS IN LLMT ARRAY. 

REAC 

63 

c 


CALCULATE MOLECULAR WEIGHT. 

REAC 

64 

c 


TEMPORARILY STORE ATOMIC VALENCE IN V. 

REAC 

65 

c 



REAC 

66 



DO ICO J J = 1 » 5 

REAC 

67 



IF ( ANUM (N,JJ).EQ.C.)GO TO 101 

REAC 

68 



IF ( ANAMEIN, JJ ). EG. ZERO) ANAME ( N , J J ) =0X 

REAC 

69 



DO 41 J=l,10 

REAC 

70 



NJ = J 

REAC 

71 



IF ( LLMT ( J ). .EQ.G) GO TO 45 

REAC 

72 



IF(NAME(N,JJ).EQ.LLMTIJ))GO TO 46 

REAC 

>73 


41 

CONTINUE 

REAC 

74 


45 

L * NJ 

REAC 

75 



LLMT(J)=NAME(N, JJ) 

REAC 

76 


46 

DC 48 KK= 1,101 

REAC 

77 



IF { ATOM (1,KK).EQ.ANAME(N,JJ) )G0 TO 50 

REAC 

78 


48 

CONTINUE 

REAC 

79 



L*C 

REAC 

80 



GO TO 20 

REAC 

81 


50 

RM=RM+ANUM(N, JJ)*AT0M(2,KK) 

REAC 

82 
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VIJ)=AT0M3,KK) 

READ 

83 


DATA(J)=ANUM(N»JJ) 

REAC 

84 

100 

CONT INUE 

RE AC 

85 


N 

REAC 

86 


ACC CCNTR I BUT IONS TO WP { K ) , HPP(K), AM(K)» BOP(I.K) AND RH ( K ) 

REAC 

87 



REAC 

88 

101 

PCWT = PECWT ( N ) 

REAC 

89 


IF ( MOLES ) PCWT=PCWT*RM 

REAC 

90 


WP(K)=WP(K) +’ PCWT 

REAC 

91 


EM = ENTH(N) 

REAC 

92 


IF (NAME (A, 5 ).NE. I ZERO )HPP (K) =HPP ( K ) +EM*PCWT/ < RM*R ) 

REAC 

93 


AM(K )=AM(K I + PCWT/RM 

REAC 

94 


DC 110 J s 1 * L 

REAC 

95 


BOP( J,K)=DATA{ J)*PCWT/RM +B0P( J.K) 

REAC 

96 

110 

CONTINUE 

REAC 

97 


IF (DENStN UNE.O. )G0 TO 115 

REAC 

98 


GC TO 117 

REAC 

99 

115 

RH(K)=RH(K)+PCWT/DENS(N) 

REAC 

100 

117 

RNW(N) = RM 

REAC 

101 


N = N+l 

REAC 

102 


I F { N ,NE. 16 ) GO TO 20 

REAC 

103 

200 

NREAC = N- 1 

REAC 

104 


IF(NFLEL.GT.O) GO TC 210 

REAC 

105 



REAC 

106 


ICC PERCENT OXIDANT. CALL REACTANTS FUEL 

REAC 

107 



REAC 

108 


DO 205 N = 1 »NR:EAC 

REAC 

109 


FCX(N) = BLANK 

REAC 

110 

2C5 

CONTINUE 

REAC 

111 


RF<2) = P H ( 1 ) 

REAC 

112 


RM 11 = 0. 

REAC 

113 


WP ( 2 ) = WP(1) 

REAC 

114 


WP( 1 ) = 0. 

REAC 

115 


HPP ( 2 ) = HPP ( 1) 

REAC 

116 


AM ( 2 ) = AM C 1 ) 

REAC 

117 


AN ( 1 ) = 0. 

REAC 

118 


DC 2C8 J = 1 » L 

REAC 

119 


BCP ( J ♦ 2 ) = BCP(J.l) 

REAC 

120 

208 

CCNT INUE 

REAC 

121 

210 

IFtL.EQ.C ) GO TO 10C0 

REAC 

122 



REAC 

123 


NORMALIZE HPP ( K ) , AM( K ) , BOP (I ,K ) , AND PECWT(N). 

REAC 

124 


CALCULATE RH(K>, V+(K), AND V- ( K ) 

REAC 

125 



REAC 

126 


CC 22C K-1,2 

REAC 

127 


IFtWPfK ) .EC.O. )G0 TO 220 

REAC 

128 


HPP ( K ) = HFP (K ) / WP ( K ) 

REAC 

129 


AM ( K ) = W P ( K ) / AM ( K ) 

REAC 

130 


IF(RKK) .NE.O. )RH(K)-WP(K)./RH(K) 

REAC 

131 


DC 215 J= 1 » L 

REAC 

132 


BOP( J.K )=BCP( J.K )/WP(K) 

REAC 

133 


I F < V ( JI.LT.O. )VMIN(K)* VMI N ( K J. + BOP ( J , K ) *V ( J ) 

REAC 

134 


I F C V < J) .GT.O. )VPLS(K)=VPLS(K)+BOP( J,K)*V( J) 

REAC 

135 

215 

CONTINUE 

REAC 

136 


IF(MOLES) GO TO 220 

REAC 

137 


DC 218 N=l, NREAC 

REAC 

138 


IF(FCX(N).EQ.0X.AND.K.EQ«2) GO TO 218 

REAC 

139 


IF(FCX(N).NE.OX.AND.K.EQ.l) GO TO 218 

REAC 

140 


PECWT(N) = PECWT (N ) /WP( K ) 

REAC 

141 

218 

CONTINUE 

REAC 

142 

220 

CONTINUE 

REAC 

143 


NEWR= .TRUE • 

REAC 

144 



REAC 

145 

APE ELEMENTS SAME AS FOR LAST SET OF REACTANTS. IF SC. NEWfc fe . FALSE. 

REAC 

146 
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IF(NLM.NE.NLS) GO TC 226 
IF(NOMIT.NE.O ) GO TO 226 
DC 22 A I = 1 »NL S 
DO 222 J= 1 » NLM 

IF ( LLMT ( J ) .NE • LLMTS ( I ) ) GO TO 222 
S^CP ( 1 , 1 ) = ROP t J * I ) 

SBCPH»2) = BOP ( J » 2 ) 

GO TO 224 
222 CONTINUE 
GC TC 226 
22 A CONTINUE 

NE WR = .FALSE. 

DO 225 1=1, NLM 

LLMT M ) = LLMTS ( I ) 

BOP ( 1,11 SBOP (1,1) 

BOP I 1 , 2 ) = SROP (1,2) 

225 CONTINUE 
GC TC 225 

C 

C 

226 NLS = NLM 
NC-MIT = 0 
REWIND A 

DC 228 It 1 , NLM 
LLMT S ( I ) = LLMT { I ) 

228 CONTINUE 

229 DC 23C N=1,NREAC 

IF (CENS(N).NE.G.) GO TO 230 
RH ( 2 ) = 0. 

RH (1) = C. 

GO TC 10C0 

230 CONTINUE 
1000 RETURN 

END 


RE AC 147 
REAC 148 
REAC 149 
REAC 150 
REAC 151 
REAC 152 
REAC 153 
REAC 154 
REAC 155 
REAC 156 
REAC 157 
REAC 158 
REAC 159 
REAC 160 
REAC 161 
REAC 162 
REAC 163 
REAC 164 
REAC 165 
REAC 166 
REAC 167 
REAC 168 
REAC 169 
REAC 170 
REAC 171 
REAC 172 
REAC 173 
REAC 174 
REAC 175 
REAC 176 
REAC 177 
REAC 178 
REAC 179 
REAC 180 
REAC 181 


C 

SUBROUTINE SEARCH SRCH 

C SRCH 

C SEARCH TAPE FOR THERMO DATA AND TRANSPORT CROSS SECTIONS OF SPECIES SRCH 
C TO BE CONSIDERED SRCH 

C SRCH 

C THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR SRCH 

C IBM 260 MACHINES ONLY SRCH 

C SRCH 

C DOUBLE PRECISION COEF , S , EN , ENLN ,H0, DELN SRCH 

C SRCH 

INTEGER SUB, OMIT, END, TOOBIG SRCH 

INTEGER SPECE SRCH 

C SRCH 

LOGICAL NEWR,OTTO, TRNSPT SRCH 

C SRCH 

DIMENSION DATE (2, 3) , MT ( 4 ). , B { 4 ) , OM I T ( 3 , 3 ) ,NAM(3) , TOC B I G ( 3 , 50 ) SRCH 

DIMENSION SPECE(2,3),TEMPR(20) ,TABLS(20,3) SRCH 

C SRCH 

COMMON SPECE , TEMPR , TABLS SRCH 

COMMON /$PECES/CQEF(2,7, 100) ,S(1C0),H0( 100) ,OELN(1CO ) ,DUMMY(10"> , SRCH 
1 EN{ ICO, 13), ENLN (100), A (10, ICO), SUB (100, 3) , I USE (100 1 ,TEMP(50,2) SRCH 


COMMON /MISC/ENN,SUMN»TT ».S0 » AT0M(3»101 ) ,LLMT( 10) ,*0 ( 1 0) , BOP ( 10, 2 ) , SRCH 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
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1 .TM,TLOW,TMID,THIGH,PP,CPSUM,OF,EQRAT,FPCT ♦ R ♦ RR , HSUBO , AM ( 2) , SRCH 

2 HPP< 2) ,RH(2) , VMIN(2)»VPLS(2)»WP(2),DATA(22),NAME(15,5), SRCH 

3 ANUM 15,5 )»PECWTl 1 5 ) » EN TH ( 15). »FAZ( 15),RTEMP( 15 ) » FOX (15) , DENS( 15 ) , SRCH 

4 RHOP,RMW( 15) ,TLN,CR,0XF<15) , ENNL , TR ACF , LLMTS ( 1 0 ) , S BOP < 10, 2 ) SRCH 

CCMMCN /INCX/IDEBUG,CONVG,TP,HP,SP,ISV,NPP , MOLES ,NP , NT, NPT , NLM , SRCH 

1 NS,KMAT,IMAT,IQ1, I OF , NOF , NOM I T , I P , NE WR , NSUB ,NSUP , R KT ,DETN , SHOCK , SRCH 

2 I ONS » NC »NSERT » JSOL ,-JL I Q ,.KASE ,NREAC , IC , JS1 » VGL , IT »C A LCH , NLS , LOGV » SRCH 

3 ISUP, ISUB, ITNUM, ITM, INCDFZ, INCDEQ,CPRF, IPP,SEQL,PCPLT SRCH 

c SRCH 

EQUIVALENCE ( DATE , EN ) , ( OM I T , ENLN ) , ( ENDD , END ) t (TOOB I G , ENLN ) SRCH 

c SRCH 

DATA GAS/1 HG/,END/3H END/, NO /AH LAST / SRCH 

SRCH 
SRCH 

SEARCH FOR THERMO DATA SRCH 

SRCH 

I2e = 0 SRCH 

NC = C SRCH 

I X = c SRCH 

SRCH 

CHECK DIMENSION FOR NUMBER OF SPECIES, CLEAR AII,J) SRCH 

SRCH 

SUB I 1 , 1 ) = END SRCH 

DC 3 InltlOOO SRCH 

I F ( A ( 1 • I). EG. ENDD) GO TO 4 SRCH 

DC 3 J= 1 ,NLM SRCH 

At J, I ) = 0. SRCH 

2 CONTINUE SRCH 

4 MAXNS = 1-1 SRCH 

SRCH 

READ TEMPERATURE RANGES FOR COEFFICIENTS OF GASEOUS SPECIES. SRCH 

SRCH 

RE AC ( A t 5 ) TLOW,TMID, THIGH SRCH 

5 FORMAT (2F10.3) SRCH 

NS = 1 SRCH 

SRCH 

BEGIN LCCP FOR READING SPECIES DATA FROM TAPE. SRCH 

SRCH 

7 READ (A, 10) (NAM(I), 1 = 1*3), DATE(1»NS)»DATE(2»NS),(MT(J),B(J) : , SRCH 

1 J=i,A) ,FHAZ,T1,T2 SRCH 

10 FORMAT ( 3A4*6Xi2A3,4(A2»F3.0) ,A1 , 2F10.3 ) SRCH 

I F (MAM ( 1 ) • EQ • END ) GC- TO 171 SRCH 

RE AO (4,20) ( (COEF( I , J,NS) , J=1 ,7) , 1 = 1 ,2 ) SRCH 

20 FORMAT (5E15.8) SRCH 

IF(NCMIT.EG.O) GO TO 810 SRCH 

DC 805 1=1 »NOM I T SRCH 

DC 804 J= 1 , 3 SRCH 

IF (OMIT (J, I ).NE.NAM(J) ) GO TC 805 SRCH 

804 CONTINUE SRCH 

GO TC 7 SRCH 

8C5 CONTINUE SRCH 

810 DO 82C K^l,4 SRCH 

IF(B(K).EQ.O.) GO TO 825 SRCH 

DO 168 1=1, NLM SRCH 

-IF (LLMT ( I ) .EQ.MT (K ) ) GO TO 820 SRCH 

16 E CONTINUE SRCH 

IF (NS. GT. MAXNS) GO TO 7 SRCH 

DC 819 J= 1 , NLM SRCH 

815 A ( J » N S ) ,= 0. SRCH 

GC TC 7 SRCH 

820 IF (NS. LE. MAXNS) A(I,NS). = B (K ) SRCH 

825 IFtNS.LE. MAXNS) GO TO 828 SRCH 

I2B = I2E+11 SRCH 

CO 826 1=1,3 SRCH 


23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 
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8 26 

TOOR I G ( I, I2B ) = NAM ( I ) 


SRCH 

87 


GO TC 7 


SRCH 

88 

82 € 

DO 829 1=1,3 


SRCH 

89 

829 

SUB (NS, I ) = N AM( I ) 


SRCH 

90 


IUSE(NS) = 0 


SRCH 

91 


IF(PHAZ.EQ.GAS) GO TC 170 


SRCH 

92 




SRCH 

93 

CCND’ENS EC SPECIES 


SRCH 

94 




SRCH 

95 


NC= NC+1 


SRCH 

96 


TEMPI NC,1 ) => T 1 


SRCH 

97 


TEMPI NC ,21= T 2 


SRCH 

98 


I X= IX + 1 


SRCH 

99 


•IF (NS.EQ, 1 • OR • IUSE ( N S — 1 );• EQ.O ] GO ' 

10 145 

SRCH 

100 


DO 83C 1=1, NLM 


SRCH 

101 


IF(A( I,NS).NE.A( I f NS-l) ) GO TO 145 


SRCH 

102 

830 

CONT INUE 


SRCH 

103 


I X = I X- 1 


SRCH 

104 

14 5 

I US E ( NS ) = -IX 


SRCH 

105 

170 

NS= NS+1 


SRCH 

106 


GO TO 7 


SRCH 

107 




SRCH 

108 

tME CARC HAS REEN READ. 


SRCH 

109 




SRCH 

110 

171 

NS= NS- 1 


SRCH 

ill 


NEWR = .FALSE. 


SRCH 

112 


WRITE(6,172 ) 


SRCH 

113 

172 

FCRMAT(42HCSPECIES BEING CONSIDERED 

IN THIS SYSTEM ) 

SRCH 

114 


CC 174 1 = 1, NS, 5 


SRCH 

115 


15= 1 44 


SRCH 

116 


IF(NS.LT.IS) I 5=NS 


SRCH 

117 

174 

WRITE ( 6 , 176 ) ( DATE { 1 , J ) , DATE ( 2 , J ) , SUB ( J, 1 ) , SUB ( J ,2 ) , SUB t Jt, 3 ) , 

SRCH 

118 


1 J=I, 15 ) 


SRCH 

119 

176 

FCRMAT(5(5X,2A3,2X,3A4) ) 


SRCH 

120 


IF(I2B.GT.C) GO TO 870 


SRCH 

121 


GC TC 16 


SRCH 

122 

870 

WRITE(6,E71) I2B 


SRCH 

123 

871 

FORMAT ( 35 HC INSUFFICIENT STORAGE FOR 

FOLLOWING, 13, 8H SPECIES) 

SRCH 

124 


WRITE (6>E8GMT00BIG( 1 , J l^TOOBIG ( 2, J) 

♦ TOOB I G ( 3 , J ) ,J = 1 , 12B) 

SRCH 

125 

880 

FORM AT ( 8 ( 3X , 3A4) ) 


SRCH 

126 


NS = 0 


SRCH 

127 




SRCH 

128 


SEARCH FOR TRANSPORT CROSS SECTIONS 

SRCH 

129 




SRCH 

130 

16 

NK = 1 


SRCH 

131 

12 

READ<4 ) ( (SPECE( UL),L=1,3I, 1 = 1 , 2 ) ,NTP ,NTB ,ROTN 

SRCH 

132 


IF ( SPECE(i , 1 ) .EQ.ND) GO TO 21 


SRCH 

133 


K — 1 


SRCH 

134 


DC 25 J = 1 , N S 


SRCH 

135 


DO 24 1=1,2 


SRCH 

136 

24 

IF(SPECE(K,D.NE.SUB(J, I) ) GC TO 25 


SRCH 

137 


GC TO 6 


SRCH 

138 

25. 

CONTINUE 


SRCH 

139 


GC TO 13 


SRCH 

140 

6 

K*2 


SRCH 

141 


DC 8 J J = 1 , NS 


SRCH 

142 


DC 27 11=1,3 


SRCH 

143 

27 

IF(SPECE(K,I I ) .NE • SUB ( J J » I I ) ) GO TO 

8 

SRCH 

144 


GC tC 21 


SRCH 

145 

E 

CONTINUE 


SRCH 

146 


GC TC 13 


SRCH 

147 

21 

WRITE (3) ( (SPECE( I »L)»L = 1»3) ,1=1,2) , 

NTP,NT8,R0TN 

SRCH 

148 

‘ 

IF(SPECE(1,1). EQ.ND) GO TO 17 


SRCH 

149 


READ (4) (TEMPRU ) * (TABLSU ,L),L = 1,3) 

,1=1 , NTP ) 

SRCH 

150 


WR I TE ( 3 ) (TFMPR( I),(TABLS( I,L), L = l, 

3 ) , I =1 ,NTP ) 

SRCH 

151 
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NK=NK4l 
GO TO 13 
17 CONTINUE 
REWIND 3 
RETURN 
END 


SRCH 152 
SRCH 153 
SRCH 154 
SRCH 155 
SRCH 156 
SRCH 157 


C 


SUBROUTINE HCALC HCAL 

HCAL 

CALCULATE PROPERTIES FOR TOTAL REACTANT USING THERMO DATA FOR HCAL 

ONE OR MORE REACTANTS* HCAL 

HCAL 

THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR HCAL 

IBM 360 MACHINES ONLY HCAL 

HCAL 

DOUBLE PRECISION HSUM , S SUM ,CPR , OLVTP , DLVPT , GAMMAS HCAL 

DOUBLE PRECTSION COEF » S , EN , ENLN ,H0 ,DELN HCAL 

HCAL 

LOGICAL MOLEST VO LrfSHOCK,CALCH HCAL 

CALCULATE ENTHALPY FOR PROPELLANT USING COEFFICIENTS HCAL 

DIMENSION NUM 115*5) HCAL 

HCAL 

COMMON /POINTS/HSUM( 13) , SSUM(13 ) ,CPR ( 1 3 ) ,DL VTP ( 13 ) , CL VPT ( 1 3 ) , HCAL 

1 GAMMAS! 13),P(26)#T<52) ,Vt 13),PPP< 13 ) , WM ( 13 ) , SONVFL < 1 3 ) , TTT ( 13 ) , HCAL 

2 VLM ( 13 ) » TOTN 1 13 ) HCAL 

CCMMCN /SPECES/C0EF{2,7, 100) ,S I 100 ) ,H0 ( 100 ) » OELN ( ICO ) , DUMMY { IOC ) , HCAL 

1 EN 1100, J 3), ENLN (100), A ( 10 , ICO ) , SUB ( 100 , 3 ) , I USE ( IOC ) , TEMP 150, 2) HCAL 
COMMON /MI SC/ENN»SUMN,TT ,S0»AT0M(3» 101 ) ,LLMT( 10) , BO ( 10 ) , BOP ( 10 , 2 ) , HC AL 

1 TM,TLOW,TMID, THIGH, PP, CPS UM, OF, EQRAT,FPCT,R*RR,HSUB;),AM(2) ♦ HCAL 

2 HPP(2) , RH ( 2 ) , VMIN(2)».VPLS(2)»WP(2) »0ATA(22) ,NAME(15,5), HCAL 

3 A NUM 115,5), P£CWT( 15) ,ENTH( 15) ,FAZ ( 15) ,R TEMP (15 ) ,FCX ( 15 ) , DENS ( 1 5 ) , HC AL 

4 RHOP ,RMV ( 15) i TLN , CR , OXF { 1 5 ) ,ENNL, TRACE ,LLMTS ( 10 ) , SBOP( 10, 2 ) HCAL 

CCMMCN /INDX/IDEBUG,CONVG,TP,HP,SP,ISV,NPP,MOLES,NP,NT,NPT,NLM, HCAL 

1 NS,KMAT, I MAT* IQ 1 , I OF , NOF , NOM I T , I P , NEWR , NSUB , NSUP ,RKT ,DETN, SHOCK , HCAL 

2 IONS,NC,NSERT,J$OL*JLIQ,KASE,NREAC, IC,JS1,V0L, I T ,C A LCH , NLS , LOGV , HCAL 

3 ISLP,ISUB,lTNuM,ITM,INCDFZ,INCDEQ,CPRF,IPP,SECL,oCPLT HCAL 

HCAL 

EQUIVALENCE ( ANUM * NUM ) , { L , NLM ), ( J , JS 1 ) HCAL 

EQUIVALENCE ( AMI ,D ATA ( 20 ).) , (CPR1»DATA( 21) ) HCAL 

HCAL 

DATA AG/1HG/,IZERO/2HOO/».OX/1HO/»BLK/1H / HCAL 

HCAL 

TSAVE = IT HCAL 

HCAL 

CALCUALTE MOLECULAR WEIGHT OF TOTAL REACTANT, AMI* HCAL 

HCAL 

IF ( AM{ lJ.NE.O.O .AND. AM( 2 ) *NE .0.0) GO T04 HCAL 

am 1= AM(2) HCAL 

IF (AM(2).EQ.0.0) AM1= AM(1) HCAL 

GC TO 9 HCAL 

4 AM1M0F4-1. )*AM(1)*AM(2)/(AM( 1)*0F*AM(2) ) . HCAL 

9 TMI = C. HCAL 

IFLPP.GT.O.) TM = ALOG{ PP*AM1 ) HCAL 

SSUMHNPT) = 0. HCAL 

HPP(l) = 0. HCAL 

HPP ( 2 ) =? 0. HCAL 

HSUBO = 0. HCAL 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 
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CPR 1 = 0. 




HCAL 

51 



ANN = (l.+:CF) 




HCAL 

52 

c 






HCAL 

53 

c 


LCCP CN REACTANTS. 




HCAL 

54 

c 


IF CX IDANT * K s 1 




HCAL 

55 

c 


IF FUEL ». K = 2 




HCAL 

56 

c 






HCAL 

57 



DC 900 Nt 1 »NRE AC 




HCAL 

58 



K*2 




HCAL 

59 



If ( FOX ( N ) .EQ.0X)K=*1 




HCAL 

60 



IF(NAKE(N,5).NE.IZER0) GO TO 90 




HCAL 

61 



IF ( .NOT .CALCH.ANC.TT.NE.O. ) GO TO 15 




HCAL 

62 



TT = RTEMP(N) 




HCAL 

63 

c 






HCAL 

64 

c 

is 

TT IN RANGE 




HCAL 

65 

c 






HCAL 

66 


15 

IF (SHOCK) GO TO 16 




HCAL 

67 



IF (TT.LT.1TL0W/1.2) .OR. TT. GT . ( TH IGH*1 . 2 ) ) GO 

TO 

75 


HCAL 

68 


16 

J * NUWIN,5I 




HCAL 

69 



IF (J.NE.O) GO TO 9C 




HCAL 

70 



DO 1C Jnl » L 




HCAL 

71 



DATA ( J } =0. 




HCAL 

72 


10 

CONTINUE 




HCAL 

73 

c 






HCAL 

74 

c 


TEMPORARILY STORE STOICHIOMETRIC COEFFICIENTS 

IN 

DATA 

ARRAY. 

HCAL 

75 

c 






HCAL 

76 



DC AO 1 = 1,4 




HCAL 

77 



IF C ANUM(N, I t.EQ.O. ) GO TO 50 




HCAL 

78 



DC 2C J = 1 » L 




HCAL 

79 



I F ( LLMT ( J ) . EG.NAME ( N »T ) )', GO TO 30 




HCAL 

80 


20 

CCNTINUE 




HCAL 

81 


30 

DATA ( J ) =ANUM( N, I ) 




HCAL 

82 


AO 

CONTINUE 




HCAL 

83 


50 

IS=0 




HCAL 

84 

c 






HCAL 

85 

c 


St ARCH FOR REACTANT IN THERMO SPECIES. STORE 

INDEX IN 

NUM ( N , 5 ) • 

HCAL 

86 

c 






HCAL 

87 



DC 70 J = ] » NS 




HCAL 

88 



If ( lUSEt Jl.EQ.OJGO TO 55 




HCAL 

89 



IS = IS+1 




HCAL 

90 



IF(FAZ(N).EQ.AG)GO TO 70 




HCAL 

91 



IF (TT.GT. TEMPI I S , 2 ) . AND. TEMP ( I S , 2 ) .NE . TH IGH > 

GO 

TC 70 


HCAL 

92 



IFITT.LT. TEMPI IS,U.AND.TEMP(IS t l).NE.TLOW) 

GO 

TO 70 


HCAL 

93 



GC TO 56 




HCAL 

94 


5 5 

IFCFAZ(N).NE.AG.AND.FAZINl.NE.BLK) GO TO 70 




HCAL 

95 


56 

DC 60 1=1, L 




HCAL 

96 



•IF ( At I , J ) .NE.DATA ( I ) ) GO TO 70 




HCAL 

97 


60 

CCNTINUE 




HCAL 

98 



NUM ( N't 5 ) = J 




HCAL 

99 



GO TO 90 




HCAL 

100 


70 

CONTINUE 




HCAL 

101 



GO TO 80 




HCAL 

102 

c 






HCAL 

103 

c 


CALCULATE EN FOR REACTANT AND CALL CPHS TO CALCULATE PROPERTIES. 

HCAL 

104 

t 






HCAL 

105 


90 

IF (MOLESi ENJ ± PECWT(N)/WPIK) 




HCAL 

106 



IF (.NOT. MOLES) ENJ * PECWTt N ) /RMW (N ) 




HCAL 

107 



8N J = ENJ/ANN 




HCAL 

108 



>IF(K.€Q.l ) ENJ = EN J*OF 




HCAL 

109 



IF (NAME (N, 5 ).NE. I ZERO) GO TO 500 




HCAL 

110 



NSS = NS 




HCAL 

111 



NS = J 




HCAL 

112 



TLN = ALOG(TT) 




HCAL 

113 



IF < .NOT *C ALCH ) EN(J,NPT) = ENJ 




HCAL 

114 



CALL CPHS 




HCAL 

115 
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NS = NSS 

IF (HO! JJ.GT.-.01 .AND. HO ( J ) . LT. . 01 ) HO ! J > = 0. 

RTEMP(N) = TT 
IF(VOL) HO ( J ) =H0 ( J )- 1 • 

ENTH(N) = HO ( J ) *R* TT 

ACC CONTRIBUTION TO CP, H, AND S OF TOTAL REACTANT. 

CPR 1 = CPR1 + CPSUM 

SSUM(NPT) n SSUM(NPT) + ENJ * (S(J)-ALOGIENJ)-TM) 

500 ER * ENTHN)*ENJ/R 
HSUBO = HSUEO+ER 
HPP!K) ~ HPP ( K )+ER 
900 CONTINUE 

IFITSAVE.NE.O. ) TT = TSAVE 
GO TO 1000 

75 WRITEC6».76) 

76 FORMAT! 50H0REACTANT TEMPERATURE OUT OF RANGE OF THERMO DATA ) 
TT = C. 

GO TO 1C00 
80 WRITE(6,.851 N 

85 FCRMAT(9H0REACTANT, I2*22H IS NOT IN THERMO DATA ) 

TT = C. 

1000 RETURN 
END 


HCAL 116 
HCAL 117 
HCAL 118 
HCAL 119 
HCAL 120 
HCAL 121 
HCAL 122 
HCAL 123 
HCAL 124 
HCAL 125 
HCAL 126 
HCAL 127 
HCAL 128 
HCAL 129 
HCAL 130 
HCAL 131 
HCAL 132 
HCAL 133 
HCAL 134 
HCAL 135 
HCAL 136 
HCAL 137 
HCAL 138 
HCAL 139 
HCAL 140 


C 


c 

c 


SUBROUTINE SAVE SAVE 

SAVE 

SAVES OR USES COMPOSITIONS FROM dqhvIOUS POINT AS INITIAL ESTIMATES SAVE 

SAVE 

SAVE 

THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE RECU I RED FOR SAVE 

IBM 360 MACHINES ONLY SAVE 

SAVE 

DOUBLE PRECISION COEF , S , EN , ENLN , HO , DELN SAVE 

SAVE 

LOGICAL VOLtCALCH* IONS, SHOCK SAVE 

SAVE 

COMMON /SPECES/COEF! 2*7, 100) ,S ( 100 ) ,H0 ( 100 ) ,DELN(1C0 ) , DUMMY! 100) , SAVE 
1 EN! 100, 13), ENLN (100), A! 10,100) , SUB! 100,3) , I USE ( IOC ) , TEMP ( 50 , 2 ) SAVE 

COMMON /MISC/ENN,SUMN,TTrSO, ATOM (3, 101 ) ,LLMT( 10 ) ,BC { 10) , BOP ( 10, 2 ) , SAVE 

1 TM,TLOW, TMID,THIGH,PP, CPSUM, OF,EQRAT, FPCT, R, RR , HSUBO, AM! 2) , SAVE 

2 HPP! 2 ) ,RH( 2) , VM IN! 2 ) , VPLS ( 2 ) , WP ( 2 ) ,DATA ( 22 ) ,N AME ( 1 5 ,5 ) , SAVE 

3 A NUN <15,5l,PECWT(15),ENTH(15),FAZ!15),RTEMP(15) ,F0X ( 15) , DENS! 15 ), SAVE 

4 RHOP'»RMW( 15) »TLN,CR»0XF(15) ,ENNL , TRACE , LLMTS ( 10 ) , SBOP! 10 , 2 ) SAVE 

COMMON /INCX/IDEBUG*CONVG,TP ,HP , SP , I SV , NPP , MOLE S , NP , NT, NPT , NLM , SAVE 

1 NS,KMAT, IMAn IQ1, IOF , NOF ,NON I T , IP , NEWR ,NSUB , NSUP', R K T ,OETN , SHOCK , SAVE 

2 IONS ,NC‘,NSERT, JSOLV JL I Q ►KASE ,NRE AC , IC , JS1 , VOL , I T,C A LCH , NLS, LOGV , SAVE 

3 J SUP , I SUB , I TNUM , I TM , INCDFZ , INCDEQ,CPRF , I PP , SEQL ,PCPLT SAVE 

COMMON /SAVED/ SLN( 100), IQSAVE^EN SAVE , ENLS A V , LS A VE, JS OLS , JL I QS , SAVE 

1 LLL, LM*MAXNPfcST0RE(52»16),XS!20), WMQL (20) »IND(20) »NM, SAVE 

2 F IRSTP^F IRSTV SAVE 

SAVE 

DATA IE/1HE/ SAVE 

SAVE 

IF! ISV)100,l0i200 SAVE 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 
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c 




SAVE 

31 

c 

NEXT POINT FIRST T IN SCHEDULE, USE PREVIOUS 

COMPOSITICNS FOR THIS T SAVE 

32 

c 




SAVE 

33 


10 

IQ1 = IQSAVE 


SAVE 

34 



JSOL = JSOLS 


SAVE 

35 



JLIQ = JLICS 


SAVE 

36 



ENN - ENSAVF 


SAVE 

37 



EN'NL ? ENLSAV 


SAVE 

38 



LL1 = NLM 


SAVE 

39 



DC 5C J = 1 , NS 


SAVE 

40 



IF ( .NCT. IONS > GO TO 15 


SAVE 

41 



IF ( LLMT(NLM) .EQ.LSAVE ) GO TO 15 


SAVE 

42 



IF(LLMT(NLM).FQ. IE) GO TO 13 


SAVE 

43 



IF ( IUSEtJ ) *NE.-1C000) GO TO 15 


SAVE 

44 



IUSF(J) = o 


SAVE 

45 



LL1 = NLP+:l 


SAVE 

46 



GO TO 20 


SAVE 

47 


12 

IFISLNI J ) .NE.O.. OR. IUSEI J).NE.O) GO TO 15 

SAVE 

48 



LL1 = NLN-1 


SAVE 

49 



IUSE(J) = -10000 


SAVE 

50 



GO TO 50 


SAVE 

51 


15 

IF ( IUSEI J ) .EO.O) GO TO 20 


SAVE 

52 



EN ( J , N PT ) =? SLN ( J ) 


SAVE 

53 



IFUUSEI J ) .GT.O) IUSEtJ): = -IUSEIJ) 


SAVE 

54 



IF (EN(J,NPT)«NE»0. ) I USE ( J ) = - l USE ( J ) 


SAVE 

55 



GO TO 50 


SAVE 

56 


20 

EN ( J ,NPT 1 = C. 


SAVE 

57 


x 

ENLN(J) = SLN l J ) 


SAVE 

58 



IF I (ENLNI J)-ENNL * 18. 5 ) •LE'.O. ) GO TO 

50 

SAVE 

59 



EN ( J , NP T ) = 2.71828182RA59«*ENLN( J) 


SAVE 

60 


50 

CC NT IMJE 


SAVE 

61 



NLM = LL1 


SAVE 

62 



GO TO 10C0 


SAVE 

63 

c 




SAVE 

64 

c 

FIRST T — SAVE COMPOSITICNS FOR FUTURE POINTS 

.WITH THIS T SAVE 

65 

c 




SAVE 

66 


100 

ISV = -ISV 


SAVE 

67 



JSOLS = JSOL 


SAVE 

68 



JL IQS = JLIQ 


SAVE 

69 



ICSAVE = I C 1 


SAVE 

70 



ENSAVE = ENN 


SAVE 

71 



ENLSAV = ENNL 


SAVE 

72 



LSAVE = ILMT(NLM) 


SAVE 

73 



DC 15C J = 1 , NS 


SAVE 

74 



SLN(J) = ENLNIJ) 


SAVE 

75 



IF! IUSEI J ) .NE.O) SLN(J)=EN( J, ISV) 


SAVE 

76 


150 

CONTINUE 


SAVE 

77 

c 




SAVE 

78 

c 

USE COMPOSITIONS FROM PREVIOUS POINT 


SAVE 

79 

c 




SAVE 

80 


200 

CO 300 J = 1 ,NS 


SAVE 

81 



EN I J , NPT ) = EN ( J » I SV ) 


SAVE 

82 


300 

CONT INUE 


SAVE 

83 


1000 

RETURN 


SAVE 

84 

c 




SAVE 

85 

c 

CALCULATE NEW VALUES OF 80 AND HSUBO FOR 

NEW 

OF RATIO SAVE 

86 

c 




SAVE 

87 



ENTRY NEWOF 


SAVE 

88 

c 




SAVE 

89 

c 




SAVE 

90 



WRITEC6rT30) OF 


SAVE 

91 


730 

FORMAT I 6HOOF = ,F10.6) 


SAVE 

92 



EORAT = 0. 


SAVE 

93 



SUM = OF ♦ 1. 


SAVE 

94 



VI = (DF*VPLSI 1)+VPLS(2))/SUR 


SAVE 

95 
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V 2 - (0F*VMIN( 1)+VMIN(2).)/SUM 
IF(V2.NE.O.) EQRAT=;ABS(V1/V2) 

IF (RH(1) ,NE. 0. .AND. RH(2) .NE. 0.) GO TO 744 
RF0P = RH2) 

IF (Rf-OP .EQ. 0.) RHCP = RH(l) 

GC TC 745 

744 RHCP = ( 0 F-a.)*RH(l)*RH( 2 )/(RH(l)+ 0 F*RH( 2 n 

745 CC 747 1 = 1, NLM 

Bern = iOF*eop( i»i)+eopu ,2 ))./suh 

747 CONTINUE 
NPT = 1 

IF( .NOT.CALCH) GO TC 750 
CALL HCALC 
IFUT.EQ.O.) RETURN 
CALCH = .FALSE. 

IF(OF.NE.O. I HPP( 1 )=SUM*HPP(1)/0F 
HPP ( 2 ) = SUM*HPP ( 2 ) 


SAVE 96 
SAVE 97 
SAVE 98 
SAVE 99 
SAVE 100 
SAVE 101 
SAVE 102 
SAVE 103 
SAVE 104 
SAVE 105 
SAVE 106 
SAVE 107 
SAVE 108 
SAVE 109 
SAVE 110 
SAVE 111 
SAVE 112 


GC TC 76C SAVE 113 

750 HSUBCi ( OF*HPP ( 1 ) +’ HPP ( 2 ) ) /SUM SAVE 114 

760 IC = 0 SAVE 115 

J SOL = 0 SAVE 116 

JLIQ = 0 SAVE 117 

WRITE (6,770) SAVE 118 


770 FORMAT ( 1H ,25X,14H EFFECTIVE FUEL , 10X , 17HEFFECT I VE OX IOANT. 12X<,7 H MI SAVE 119 


1XTURE 


SAVE 120 


IF(VCL) WRITE(6,772) 


SAVE 121 


IF(.NCT.VOL) WRITE ( 6,774). SAVE 122 

772 FORMAT ( 16 H INTERNAL ENERGY , 1 4X , 6HHPP ( 2 )» 1 9X , 6HHPP ( 1 ), 19X *5HHSUB0 )SAVE 123 

774 FORMAT ( 9F E NTHAL PY , 2 1 X , 6HHPP ( 2 ) , 19X , 6HHPP ( 1 ) , 19 X , 5HHSUB0 ) SAVE 124 

WRITE(6,77fc) HPP(2)»HPP(1),HSUB0 SAVE 125 

776 FORMAT ( 19H (KG-MOLHDEG K ) /KG , E2 1 . 8 , 2E25 . 8 ) SAVE 126 

WRITE(6 r 778) SAVE 127 


778 FORMAT < 12HCKG-AT0MS/KG, 17X ,8H80P ( I , 2 ) » 17X, 8HB0P ( I , 1 ) » 18X ,5HB0( I ) ) SAVE 128 


780 FCRMAT(8X,A2,5X,3E25.8) 

WR ITE t 6,7 80 ) ( LLMT ( I ) ,.BOP ( I , 2 ) ,BOP( I,1).B0(I),I=1,NLM) 

RETURN 

ENC 


SAVE 129 
SAVE 130 
SAVE 131 
SAVE 132 


C 

SUBROUTINE EQLBR'M EQLM 

RCUTINE TO CALCULATE EQUILIBRIUM COMPOSITION AND PROPERTIES EQLM 

EQLM 

COUBLE PRECISION X,G,SUM ECLW 

EQLM 

THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR EQLM 

IBM 360 MACHINES ONLY EQLM 

EQLM 

COUPLE PRECISION HSUM , S SUM , CPR , DLVTP , DLVPT , GAMMAS EQLM 

DOUBLE PRECISION CHEF , S , EN , ENLN , HO ,DELN EQLM 

COUPLE PRECISION ENL , PRO W , DLNT , A A EQLM 

EQLM 

LOGICAL HP,SP»TP ,CONVG» IONS , S I NGC , LOG V » I 5 I NG » IC , VOL , SHOCK* RITE EQLM 

C EQLM 

COMMON /POINTS/HSUM( 13) ,SSUM(13 ) ,CPR ( 1 3 ) ,DL VTP ( 1 3 ) , DLVPT t 13 ) EQLM 

1 GAMMAS ( 13),P(26),T(52),V(13),PPP(13),WM(13) ,S0NVEL(13) ,TTT(13) , EQLM 

2 VLM( 13 ) ,TCTN( 13) EQLM 

COMMON /SPECES/CCEF( 2*7, 100) ,S( 100) ,H0( 100) ,DELN (100 ) , DUMMY ( 100) , EQLM 

1 EN< 100, 13), ENLN (100), A ( 10,100) , SUB (100,3) ,IUSF(10C) , TEMP I 50, 2) EQLM 


COMMON /MSC/ENN,SUMN#TT»SO, ATOM (3.101 )* LLMT <10 ) ,B0 ( 10) , BOP ( 10, 2 ) , EGLM 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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1 TM,TLOW,TM ID»THIGH,PP,.CPSUM,0F,FQRAT,FPCT,R,RR,HSUB0,AM<2) , EQLM 

2 FPP(2) ,RH(2), VMIN(2),VPLS(2),WPI2),DATA(22),NAME(15,5), EQLM 

3 ANUM( 15,5 ),PECWT( 15) *ENTH( 15) ,FAZ< 15) , R TE MP ( 1 5 ) , FOX ( 15 ) t DENS ( 1 5 ) , EQLM 

4 RHOP , RM W( 15)»TLN,CR»OXF(15) ,ENNL , TRACE , LLMTS ( 10 ) , SBOP{ 10, 2 ) EQLM 

COMMON /OOUBLE / G(20,21),. X(20) EQLM 

COMMON /1NOX/IDEBUG»CONVG»TP, HP, SP,ISV,NPP, MOLES, NP,NT,NPT,NLM, EQLM 

1 NS,KMAT, IMATi 101* I OF , NOF , NOMI T , I P , NE WR , NSUB , NSUP , R K T ,DETN , SHOCK , EQLM 

2 IONS,NC,NSERT, JSOL^JLIQrKASE^NREAC, IC, JS1 ,VOL, IT,CALCH,NLS,LOGV, EQLM 

3 *1 SUP * I SUB *ITNUM,ITM*INCDFZ»INCDEQ»CPRF,IPP,SEQL»PCPLT EQLM 

C EQLM 

EQUIVALENCE ( NLM , L ) EQLM 

C EQLM 

DATA lE/lHE/,SMALNO/l.E-6/,SMNOL/-13. 815511/, ITN/35/ EQLM 

C EQLM 

E = 2.718281828459 EQLM 

SINGC = .FALSE. EQLM 

ENL = ENNL EQLM 

RITE = .FALSE. EQLM 

IF( IDEBUG.GT.O.AND.NPT.GE. IDEBUG) RITE=.TRUE. EQLM 

SIZE * 18.420681 EQLM 

ISING = .FALSE. EQLM 

LOGV = .FALSE. EQLM 

IF ( .NOT • VOL ) GO TO 6 EQLM 

RV = RR/101.325 EQLM 

PP = RV*ENN*TT/VLM(NPT) EQLM 

fc TLN = ALOG(TT) EQLM 

CONVG = .FALSE. EQLM 

ITNUMB = ITN EQLM 

JS1 = 1 EQLM 

CALL CPHS EQLM 

!TM = ALOG ( PP/ENN ) EQLM 

C EQLM 

IF ( .NOT. ICNS.OR.IE.EQ.LLMT(L) ) GO TO 33 EQLM 

L = L ♦ 1 EQLM 

IC1 = I Q 1 -*• 1 EQLM 

DC 489 J = 1 , NS EQLM 

IF ( A ( L , J ). .EQ.O.) GC TO 499 EQLM 

£N ( J , NPT ) = l.E-8 EQLM 

ENLN(J) = -SIZE EQLM 

ILSE(J) = C EQLM 

499 CONTINUE EQLM 

33 IFINPT.EC.l. AND. .NOT. SHOCK) WRI TE ( 6 , 244 ) ( LLMT (I) , I = 1 , L ) EQLM 

244 FORMAT ( 4HCPT ,14(5X,A4)) EQLM 

C EQLM 

C BEGIN ITERATION EQLM 

C EQLM 

43 IF (.NOT. CONVG) GO TO 62 EQLM 

SUMN t ENN EQLM 

IF( JSCL.EQ.O) GO TO 62 EQLM 

ENSCL = EN( JSOL»NPT) EQLM 

EN ( JSCL *NPT ) * EN(JSOL,NPT)+EN( JLIQ,NPT) EQLM 

IUSE(JLIQ) = -IUSE(JLIQ) EQLM 

101 = IQ1-1 EQLM 

DLVTPtNPT ) * 0. EQLM 

CPR(NPT). - 0. EQLM 

GAMMAS (NFT ) * 0. EQLM 

LOGV = .TRUE* EQLM 

62 CALL MATRIX EQLM 

NUMB * ITN- ITNUMB+1 EQLM 

IC2 * I Cl ♦: 1 EQLM 

IF (CONVG ) IMAT= IMAT-1 EQLM 

IF(. NOT. RITE) GO TO 72 EQLM 

IF< .NOT. CONVG) GO TO 88 EQLM 

I F ( . NOT. LOGV) WR I TE ( 6, 81 ). EQLM 
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46 
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81 

FORMAT ( 15HCT DFR'IV MATRIX). 



EQLM 

85 


.IF(LQGV) WRITE(6,82) 



EQLM 

86 

82 

FORMAT ( 15HCP DERIV MATRIX). 



EQLM 

87 


GC TO 89 



EQLM 

88 

es 

WRITE(6,772) NUMB 



EQLM 

89 

772 

FORMAT ( 1 1H0 ITERATION , 1 3 , 6X , 7HMATR 1 X //) 


EQLM 

90 

89 

DC 911 1=1, IMAT 



EQLM 

91 

911 

WRITE (6,73) (G(I,K),K=lrKMAT) 



EQLM 

92 

72 

ITST = IMAT 



EQLM 

93 


CALL GAUSS 



EQLM 

94 


I F ( ITST. NE. IMAT) GO TO 774 



EQLM 

95 


IF( .NCT.RITE) GO TO 773 



EQLM 

96 


WRITE (6,373) (LLMT( I),I=1,L) 



EQLM 

97 

373 

FORMAT ( 7 HOP I ,9(A4,10X)) 



EQLM 

98 


WRITE ( 6, 73 ) ( X ( I 1*1 = 1, 1 MAT) 



EQLM 

99 

73 

FORMAT (9E14.6) 



EQLM 

100 

773 

IF( .NOT.CONVG) GO TC 85 



EQLM 

101 


IF(. NOT. LOGV) GO TO 174 



EQLM 

102 


GO TO 171 



EQLM 

103 





EQLM 

104 


TEMPERATURE DER I VAT I VES— CONVG=T , 

LOGV = F 


EQLM 

105 





EQLM 

106 

174 

DLVTP(NPT) = 1 • — X ( I Q 1 ) 



EQLM 

107 


CPR(NPT) = G ( 102,102) 



EQLM 

108 


DC 176 J=1,IQ1 



EQLM 

109 


CPR(NPT) = CPR(NPT)-G( IQ2, J)*X( J) 



EQLM 

110 

176 

CONTINUE 



EQLM 

111 





EQLM 

112 


PRESSURE DERIVATIVE— CONVG=T, LOGV 

= T 


EQLM 

113 





EQLM 

114 


LOGV = .TRUE, 



EQLM 

115 


GO TO 62 



EQLM 

116 





EQLM 

117 

SINGULAR MATRIX 



EQLM 

118 





EQLM 

119 

774 

IF ( .NOT.CONVG) GO TC 775 



EQLM 

120 


WRITE(6„172 ) 



EQLM 

121 

17 2 

FORMAT (26 HO DERIVATIVE MATRIX SINGULAR ) 


EQLM 

12 2 


GC TO 1171 



EQLM 

123 

775 

I F ( .NOT.FP.OR.NPT.NE.l.OR.NC.EQ.O. 

OR.TT.GT.IOO. ) GO 

TO 871 

EQLM 

124 


WR I T E < 6 *674 ) 



EQLM 

125 

874 

FORMAT ( 96H0L0W TEMPERATURE IMPLIES 

CONDENSED SPECIES 

SHOULD HAVE 

EQLM 

126 

1BEEN INCLUDED ON AN INSERT CARD, RESTART ) 


EQLM 

127 


GO TO 872 



EQLM 

128 

871 

W R I T E ( 6 , 7 4 ) 



EQLM 

129 

74 

FCRMAT( 16HCSINGULAR MATRIX) 



EQLM 

130 


IF(SINGC) GO TO 873 



EQLM 

131 


DC 970 JJ = 1 , NS 



EQLM 

132 


IF ( IUSEUJ ).NE.O) GO TO 970 



EQLM 

133 


IF ( EN( J J , NPT ) *NE .0 • ) GO TO 970 



EQLM 

134 


EN(JJ,NPT ) =5 SMALNO 



EQLM 

135 


ENLN(JJ) = SMNOL 



EQLM 

136 

970 

CENT INUE 



EQLM 

137 


I F ( ISING) GO TO 870 



EQLM 

138 


ISING = .TRUE. 



EQLM 

139 


WRITE (6,776) 



EQLM 

140 

776 

FORMAT (8H0RESTART) 



EQLM 

141 


GC TC 62 



EQLM 

142 





EQLM 

143 


TEST FO.R SINGULARITY TO CONDENSED 

SPECIES. 


EQLM 

144 





EQLM 

145 

870 

NCCNC = IQ1-NLM-1 



EQLM 

146 


IF { NCCND *LT .2.0R.SIZEG.EQ.0. ) GO 

TO 873 


EQLM 

148 


DO 872 J= 1 »NS 



EQLM 

149 


I F l IUSE(J).LE.O) GO TO 872 



EQLM 

150 
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I F < J.EQ.JDELG) GO TC 872 EQLM 

DO 671 1 = 1, NLM EQLM 

IF(A< I, J).E0.A( I ,JDELG) ): GO TO 671 EQLM 

IF(A(I, J ).EQ.O..CR.A{ I, JDELG ) .EQ.O. ) GO TO 872 EQLM 

671 CONTINUE EQLM 

SINGC = .TRUE. EQLM 

IG1 = I Q 1“ 1 EQLM 

EN ( J »NPT ) = 0. EQLM 

IUSE(J) = -IUSE(J) EQLM 

872 CONTINUE EQLM 

IF (SINGC) GO TO AO EQLM 

GO TO 872 EQLM 

EQLM 

OBTAIN CORRECTIONS TO THE ESTIMATES EQLM 

EQLM 

85 ITNUMB= ITNUMB-1 EQLM 

KK = L +: 1 EQLM 

IF(VOL) X(IQ2)=X(IQ1) EQLM 

IF(TP) X ( I G2 ) =0 . EQLM 

DLNT = X( IQ2 ) EQLM 

SUM = X( IQ 1 ) EQLM 

IF (.NOT. VOL) GO TO 97 EQLM 

X( IQ1) = 0. EQLM 

SUM = -DLNT EQLM 

97 DC 101 J = 1 »NS EQLM 

IF (ILSE(J)) 101,98,100 EQLM 

58 DELN(J) = H0( J)*CLNT-H0( J). + S( J)-ENLNl J)-TM + SUM EQLM 

DC 99 K=1,L EQLM 

DE L N ( J I =» DELN( J ) +A (K , J ) *X( K >. EQLM 

99 CONTINUE EQLM 

GO TO 101 EQLM 

100 CELN(J) = X ( KK ) EQLM 

KK = KK M EQLM 

101 CONTINUE EQLM 

EQLM 

CALCULATE CONTROL FACTOR fAMBDA EQLM 

EQLM 

AMBDA= 1. EQLM 

AMBDA1= 1. EQLM 

SUM = X(!Q1) EQLM 

IF ( SUM. LI .0 • ) SUM=-SUM EQLM 

IF(CLNT.GT.SUM) SUM=DLNT EQLM 

IF(-CLNT.GT.SUM) SUM=-DLNT EQLM 

CO 917 J=1,NS EQLM 

IF ( IUSE ( J 1.NE.0 ) GO TO 917 EQLM 

IF ( ( EN{ J ,NPT ) #GT .0. ) .AND.DELN( J ) .GT • SUM ) SUM * DELN(J) EQLM 

I F ( <EN< J,NPT) .NE.O. ) .OR. OELN ( J ) • LE.O. ) GO TO 917 EQLM 

SUM1 = <-9.212-ENLN< J)+ ENL ) / ( DELN ( J )-X (I Q 1 ) ) EQLM 

IF ( SLM1 .LT.O. ) SUM1=-SUM1 EQLM 

IF (SUM1.LT.AMBDA1 ) AMB0A1 = SUM1 EQLM 

917 CONTINUE EQLM 

IF ( SUM. GT .2. )AM8DA=2./SUM EQLM 

IF ( AMBDA1.LT. AMBDA) AMBDA = AMB0A1 EQLM 

IF( .NOT. RITE) GO TO 111 EQLM 

EQLM 

INTERMEDIATE OUTPUT EQLM 

EQLM 

WRITE<6,922) TT , ENN, ENL „PP , TM , AMBDA EQLM 

923 FORMAT ( 3H0T=* El 5. 8 , 6H ENN= ,E1 5. 8 , 7H ENNL =E15 . 8 , 5H PP=»E15.8, EQLM 
1 9H LN P/N=E 15. 8, 8H AMBDA=E15 . 8 ) EQLM 

IF(VOL) WRITE(6,192A ) VLM(NPT) EQLM 

192 A FORMAT ( 8F VCLUME= , El 5 . 8 , AHCC /G ) EQLM 

WRITE ( 6 , 92A ) EQLM 

92 A FCPMATt 1H0 , 18X , 2HN J , 1 2X , 5HLN NJ,8X,9HDEL LN N J , 9X,6HH0 J/RT , 9X , 5HS0EQLM 
1J/R, 10X f 7H-G0J/RTi8X,6H-GJ/RT ) EQLM 


151 

152 

153 
15A 

155 

156 

157 

158 

159 

160 
161 
162 
163 
16A 

165 

166 

167 

168 

169 

170 

171 

172 

173 
17A 

175 

176 

177 

178 

179 

180 
181 
182 
183 
18A 

185 

186 

187 

188 

189 

190 

191 

192 

193 
19A 

195 

196 

197 

198 

199 

200 
201 
202 
203 
20A 

205 

206 

207 

208 

209 

210 
211 
212 
213 
21A 
215 
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non nno non 


DC 926 Jal,NS 
GNEC1 = S C J ) -HO ( J I 
GNEC2 = GNEG1 

IF ( USE ( J ) .EQ.O) GNEG2=GNEG2-ENLN( J)-TM 
WAITE 1 6,925) SUB ( J , 1 ) ,-SUB ( J , 2 ) , 

1SUB ( Jt3) 'EM Jf NPT) , ENIN ( J ) , D EL N ( J ) , HO ( J ) , S ( J ) ,GNEG1 , GNEG2 

925 FORMAT l IX , 3A4,7E15.6 ) 

926 CONTINUE 
WRITE (6,110) 

110 FORMAT ( 1H0) 

APPLY CORRECTIONS TQ estimates 

111 SUM = 0. 

DO 113 J= 1 »NS 
IF (IUSE(J)) 113,112,114 

112 ENLN( J ) = ENLN( J )+ AMBDA *DELN < J ) 

EN ( J , NP T ) = C. 

I F I ( ENLN ( J ) - ENL+SIZEJ.LE.O. ) GO TO 113 
EN ( J , NP T ) = E**ENLN(J) 

SUM = SUM+’EN ( J ,NPT ) 

GO TO 113 

1 1 A EN ( J , NPT ) = EN ( J ,NPT ) + AMBDA * OELN(J) 

113 CONTINUE 
SUMN = SUM 

IF (TP) GO TO 115 
TLN= TLN« AMBOA*DLNT 
TT = EXP(TLN) 

JS1 = 1 
CALL CPHS 

115 IF(VOL) GO TO 2115 
ENL = ENL+:AMROA*X (IQl) 

ENN = E * * E N L 

GO TO 1115 
2115 ENN = SUMN 

ENL = ALOG(ENN) 

PP = RV«TT*ENN/VL*(NPT) 

1115 TM = ALOG(PP/ENN) 

IF (LLMT(L).NE.IE) GO TO 116 

CHECK ON REMOVING IONS 

DO 1116 J = 1 , NS 

IF (A(L,J) .EQ.O. ) GO TO 1116 

IF (EN( J,NPT ) .GT.O. ) GO TO 116 

1116 CONTINUE 

DO 1118 J = 1 , NS 

IF(A(L, JJ.NE.O. ) I USE ( J ) = -10000 
1118 CONTINUE 
L = L-l 
101 = IC1-1 
GO TO 43 

TEST FOR CONVERGENCE 

116 IF ( ITNUMB.EG.O) GO TO 14 
IF ( AMBDA. LT.l. ) GO TO 43 
SUM = ( ENN-SUMN) /ENN 

IF (SUM.LT.Q. > SUM = -SUM 
IF ( SUM. GT.O. 5E-5) GO TO 43 
DC 130 vH 1 .NS 

IF ( IUS E ( J ) .LT.O) GO TO 130 
A A= OELN(J)/SUMN 

ifiaa.lt.c.) aa=-aa 


EQLM 

216 

EQLM 

217 

EGLM 

218 

EQLM 

219 

EQLM 

220 

EGLM 

221 

EGLM 

222 

EQLM 

223 

EGLM 

224 

EQLM 

225 

EQLM 

226 

EQLM 

227 

EGLM 

228 

EQLM 

229 

EQLM 

230 

EQLM 

231 

EQLM 

232 

EQLM 

233 

EQLM 

234 

EQLM 

235 

EQLM 

236 

EQLM 

237 

EQLM 

238 

EGLM 

239 

EQLM 

240 

EQLM 

241 

EQLM 

242 

EGLM 

243 

EQLM 

244 

EQLM 

245 

EQLM 

246 

EGLM 

247 

EQLM 

248 

EQLM 

249 

EGLM 

250 

EGLM 

251 

EQLM 

252 

EQLM 

253 

EQLM 

254 

EQLM 

255 

EQLM 

256 

EQLM 

257 

EQLM 

258 

EQLM 

259 

EQLM 

260 

EQLM 

261 

EQLM 

262 

EQLM 

263 

EQLM 

264 

EQLM 

265 

EGLM 

266 

EQLM 

267 

EQLM 

268 

EQLM 

269 

EQLM 

270 

EQLM 

271 

EQLM 

272 

EQLM 

273 

EGLM 

274 

EQLM 

275 

EQLM 

276 

EQLM 

277 

EGLM 

278 

EQLM 

279 
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n Ci n n n c n 


130 


IF { IUSE! J 1.EQ.0) AA 
I F ( AA.GT.0.5E-5) GO 
CONTINUE 


* AA*EN { J , NPT ) 
TO A3 


CALCULATE ENTROPY, CHECK ON DELTA S FOR SP PROBLEMS 


TCTN(NPT) = 0. 

SSUM(NPT) = 0. 

DC 183 J=?1,NS 

I F ( ILSE ( J ) • LT • 0 ) GO TO 183 
TCTN(NPT) = TOTN(NPT) + EN(J,NPT) 

SS = S ! J ) 

I F ( IUSE(J) .EQ.O) SS=;SS-ENLN(J)-TM 
SSUM(NPT) =; SSUM!NPT)+SS*EN( J»NPT) 

183 CONTINUE 

IF! .NOT.SP.OR.NPT.EQ.l) GO TO 13 
SS = SSUMNPT) -SO 

IFCSS.LT. (-0. 0C0C5). OR. SS.GT. 0.00005) GO TO A3 
IF ( R ITE ) WRITE! 6, 1183) SS 
1183 FORMAT! 12H0DELTA S/R *,E15.8) 

13 CCNVG= .TRUE. 

GC TC 160 

1A WR I T E ( 6 *97 3 ) I TN , NPT 

973 FORMAT ! 1HL , I 2 » 69H ITERATIONS 010 NOT SATISFY CONVERGENCE REQUI 
1NTS FOR THE POINT 15) 

IF •( .N0T.HP.0R.NPT.NE.1.0R.NC.EQ.0.0R.TT.GT.100. ) GC TO 873 
WRITE!6*£7A ) 

GC TO 873 

CONVERGENCE TESTS ARE SATISFIED, TEST CONDENSED SPECIES. 

160 IF(NC.EG.O) GO TC 1A3 
DC 1A6 JsltNS 

IF I EN( J ,NPT I .GE.O. ) GO TO 1A6 

IF ( J.NE.JSOL .AND. J .NE.JLIQ) GO TO 1A7 

JSCL = C 

JLIC - C 

1A7 IG1 * IQ1 - 1 
EN(J,NPT) = 0. 

GO TO 16£ 

1A6 CONTINUE 
SIZEG = 0. 

INC = 0 

CO 170 J = 1 , NS 

IF ! IUSE! J I.EQ.O .OR. I USE ( J ) . EQ .-10000 ) GO TO 170 
INC - INC 1 

IF (RITE ) WRITE t 6,1AA ) ( SUB ! J , I ) , I =1 , 3 ) , TEMP ( I NC , 1 ) , TFMP ( I NC , 2 ) 
IE! J) ,EN!J,NPT) 

1AA FORMAT ! 1H0 , 3 AA , 2F 10 . 3, 3X , 5H I USE= , I A , E 15 • 7 ) 

IF l EN ( J,NPT ) .GT.O. ) GO TO 169 
KG = 1 

IF! IUSE! J ) .EO.-IUSE! J+l V) GO TO 15A 

IF! J.EQ.1.0R.IUSE! J).NE.-IUSE( J-l) ) GO TO 153 

KG = -1 

15 A JKG = J < KG 

TMELT = TER P ( INC,1) 

IMP = INC +: KG 

IF(TREL.T.EC.TEMP!IMP,2) » GO TO 158 
TMELT = TEMP! INC, 2) 

IF {TMELT. EG. TEMP! IMP, 1) ) GO TO 157 
WRITE ! 6 , 1 5 6 ) 

156 FORMAT (5CH03 PHASES OF A CONDENSED SPECIES ARE CUT OF ORDER 
GC TO 873 


EQLM 
EGLM 
EQLM 
EQLM 
EQLM 
EGLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EGLM 
RE ME EQLM 
EQLM 
EQLM 
EQLM 
EGLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EGLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EGLM 
, IUSEQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EGLM 
EQLM 
EQLM 
EQLM 
EGLM 
EQLM 
EQLM 
) EQLM 
EGLM 


280 
281 
282 
283 
28 A 

285 

286 

287 

288 

289 

290 

291 

292 

293 
29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 
30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 
31 A 

315 

316 

317 

318 

319 

320 

321 

322 

323 
32 A 

325 

326 

327 

328 

329 

330 

331 

332 

333 
33A 

335 

336 

337 

338 

339 
3A0 
3A1 
3A2 
3A3 
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non non on 


JTH SPECIES A SOLID (EN=0), (J+KGITH SPECIES A LIQUID ( EN IS +) 

157 I F ( TT .GT . TMELT ) GO TC 169 

IF (TP. AND. TT.EQ. TMELT) GO TC 169 

IF (TP) GO TO 1165 

IF (TT.LE .TMELT-150. ) CO TO 1165 

JSOL = J 

JL IQ = JKG 

GO TO 159 

JTH SPECIES A L I QU I D ( EN=0 ) » (J+KGJTH SPECIES A SOLID (EM IS +) 

158 IF ( TT.LT .TMELT) GO TO 169 

IF (TP.ANC.TT . EQ • TMELT ) GO TC 169 
IF (TP) GC TO 1165 
IF (TT.GE.TMELT+150. ) GO TO 1165 
JSOL = JKG 
JL IQ = J 

159 TLN = ALCG (TMELT) 

TT - TMELT 

EN(JKGtNPT) = .5 * EN ( JKG , NP T ) 

EM J » NP T ) = EN ( JKG » NPT ) 

GC TO 165 

WRONG PHASE INCLUDED FOR T INTERVAL, SWITCH EN 

1165 EN(J,NPT) = EN (JKG, NPT) 

IUSE(J) = -IUSE(J) 

IUSE (JKG) * -IUSE(JKG) 

EN ( JKG , NPT ) = 0. 

GO TO 40 

153 IF ( TT.LT .TEMP( INC, 1) . AND. T EMP { INC , 1 ) . NE. TLOW ) GC TC 169 
IF (TT.G7. TEMPI INC, 2) ) GO TO 169 
C 

SUM = 0. 

DO 167 I = 1 , L 

SUM = SUM +: A I I , J ) *X ( I ) 

167 CONTINUE 

CELG = HC( J)-S(J)-SUM 

IF(RITE) WRITE(6, 168 ) DELG , S I ZEG 

168 FORMAT (18H GO-SUM ( A I J*P II ) =E 1 5 . 7 ♦ 10X , 1 7HM AX NEG DELTA G =, 
IF(OELG.GE.SIZEG .OR. DELG.GE.O.) GO TO 169 

SIZEG = CELG 
JOELG = J 

169 IF( INC.EO.NC) GO TO 1160 

170 CONTINUE 

1160 IF (SIZED. EQ. 0. ) GO TO 143 
J = JCELG 

165 ici = iqi +: 1 

166 IUSE(J) = - IUSE ( J ) 

40 CONVG = .FALSE. 

JS1 = 1 
CALL CPHS 
14 3 TN = NUM E 

IF ( .NOT. SHOCK) WR I TE ( 6 ,.771 >NPT , ( X ( I L ) , IL - 1 , L ) , TN 
771 FORMAT < I3,14F9.3) 

JS1 = 1 

IF(TP.ANC. CONVG) CALL CPHS 
ITNUMB = I TN 
GC TC 43 
C 

C CALCULATE EQUILIBRIUM PROPERTIES 

C 


EGLM 344 
EQLM 345 
EQLM 346 
EGLM 347 
EQLM 348 
EQLM 349 
EGLM 350 
EQLM 351 
EQLM 352 
EQLM 353 
EQLM 354 
EGLM 355 
EGLM 356 
EQLM 357 
EQLM 358 
EQLM 359 
EQLM 360 
EQLM 361 
EGLM 362 
EGLM 363 
EQLM 364 
EQLM 365 
EGLM 366 
EGLM 367 
EQLM 368 
EQLM 369 
EGLM 370 
EGLM 371 
EQLM 372 
EQLM 373 
EGLM 374 
EQLM 375 
EQLM 376 
EQLM 377 
EQLM 378 
EQLM 379 
EQLM 380 
EQLM 381 
EGLM 382 
EQLM 383 
EQLM 384 
El 5 . 7 ) EGLM 385 
EQLM 386 
EQLM 387 
EQLM 388 
EGLM 389 
EQLM 390 
EGLM 391 
EQLM 392 
EQLM 393 
EQLM 394 
EQLM 395 
EQLM 396 
EQLM 397 
EGLM 398 
EQLM 399 
EQLM 400 
EQLM 401 
EQLM 402 
EQLM 403 
EGLM 404 
EQLM 405 
EQLM 406 
EQLM 407 
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noonoono r> nan 


1171 CLVPT(NPT) = -1* 

DLVTP(NPT) = 1. 

CPR(NPT) = CPSUM 
GC TO 199 

171 DLVPTtNPT) = -1. + X (1 Q 1 ). 

IF( JLIQ.EQ.O) GO TO 199 
EN(JSQL,NPT) *= ENSOL 
IUSE(JLIO) * -IUSE(JLfQ) 

HSUM(NPT) = HSUM(NPT)+EN( JLIC,NPT)*(H0( JLIQ)-H0( JSCL ) ) 
IC1 = IQ1+I1 

-1 • /DLVPT (NPT) 


199 

186 


GAMMAS ( NPT ) = 

GO TO 186 

GANN AS ( NPT ), = -1 . / ( DL VP T ( NPT ) -H( DLVTP { NPT ) **2 > *ENN/C P R ( NPT ) ) 
TTT(NPT) = TT 
ENNL = ENL 
PPP(NPT) = PP 

VLM(NPT) = RR*ENN*TT/( 101.325*PP) 

HSUM(NPT) = HSUM ( NPT ) *TT 

WM(NPT) ^ l./ENN 

IF(TRACE.EC.O. ) GO TO 200 

DC 12C0 J=1,NS 

IFUUSE! JJ.NE.O) GO TO 1200 

IF (ENLN( J ) .GT.-87. ) EN ( J , NPT ) =DEXP ( ENLN ( J ) ) 

CONTINUE 

IF( .NOT. RITE) GO TO 863 N 

WRITE (6 *201 ) NPT»PP#TT*.HSUMNPT) ,S SUM (NPT) ,WM(NPT) ,CPR(NPT)., 
1 DL VP T ( NF T ), DL VTP (NPT), GAMMAS! NPT ) ,VLM( NPT) 

FORMAT nH0P0INT=I3,3X,2HP = E-13.6,3X,2HT = E13 
lS/R=E13.6//3X f 3HMW=E13.6*3X,5HCP/R=E13.6,3X 
2TP=E13.6,3X,9HGAMMA( S ) = E 13 . 6 , 3X , 2HV= , E 1 3 . 6 ) 

IFtTT.GE.TLOW. AND. TT.LE. THIGH. OR. SHOCK) GO TO iOCC 
WRITE!6,306) TT , NPT 

FORMAT! 1TH0THE TEMPER ATURE=E 12.4,26H IS CUT 
IF(TT.GE.TLOW/1.5.AND.TT.LE.THIGH*1.25) G.0 
NPT = NPT+’l 

ERROR, SET TT*0 


873 TT =0 • 

NPT - NPT-1 
1000 RETURN 
END 


1200 

200 


201 

863 

306 


l.6,3X,4HH 
, 6HDL VPT = 


OF RANGE 
TO 1000 


EGLM 
EQLM 
EGLM 
EQLM 
EGLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 
EQLM 

/R=E13.6,3X,4HEQLM 
E 13 • 6, 3X *6HDLVEQLM 
EQLM 
EQLM 
EQLM 

FOR POINT, I5VEQLM 
EQLM 


EQLM 

EQLM 

EQLM 

EQLM 

EQLM 

EQLM 

EQLM 

EQLM 


408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 


SUBROUTINE CPHS CPHS 

CALCULATES THERMODYNAMIC PROPERTIES FOR INDIVIDUAL SPECIES CPHS 

CPHS 

THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR CPHS 

I EM 360 MACHINES ONLY CPHS 

CpHS 

DOUBLE PRECISION COEF , S , EN , ENLN , HO , DELN CPHS 

CPHS 
C P HS 

COMMON /SP ECES/COEF ( 2,7, 100 ) ,S< 100) ,H0 ( 100 ) , DELN ! ICO ) , DUMMY! 100) , CPHS 
1 EN! 100, 131, ENLN! 100) ,A( 10,100) , SUB (100,3 ) ,IUSE( 100) , TEMP I 50,. 2) CPHS 

COMMON /MISC/ENN,SUMN, TT*SO, ATOM (3,101) , LLMT( 10 ) ,B0 ( 10) , BOP ( 10 , 2 ) , CPHS 

1 TM,TL0W,TMIDiTHIGH*PP,CPSUM,0F,EQRAT,FPCT,R,RR,HSL'B0,AM(2) , CPHS 

2 HPP ( 2 ) *RH ( 2 ) » VMINI2),VPLS!2),WP(2),DATA(22),NAME(15,5), CPHS 

3 ANUM!15,5) ,P£CWT! 15) ,ENTH(15) ,FAZ(15) ,RTEMP(15) ,FOX (15) *DENS(15),CPHS 

4 RHOP »RMW( 15),TLN*CR,OXF(15) ,ENNL , TRACE ♦ LLMTS ( 10 ) , SBOP ( 10, 2 ) CPHS 

COMMON /INCX/IDEBUG.CONVG,TP,HP, SP , I SV , NPP , MOLE S ,NP , NT, NPT , NLM . CPHS 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
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1 NS,KMAT,IMAT* IQ 1 * I OF , NOF ,NOMI T , IP , NE WR , NSUB 

,NSUP,RKT,DETN, SHOCK, 

CPHS 

18 

2 ICNS,NC,NSERT, JSOL, JLI Q,KA$E ,NREAC , IC, JS1 , VOL , I T iC A LCH , NLS , LOGV , 

CPHS 

19 

3 'ISUP,ISUB»ITNUM,ITM,INCDF£, incdeq,cprf, ipp. 

SEQL,PCPLT 

CPHS 

20 



CPHS 

21 

EQUIVALENCE (J,JS1) 


CPHS 

22 



CPHS 

23 

K s 1 


CPHS 

24 

*F(TT.LE.TMID) K = 2 


CPHS 

25 

KK - C 


CPHS 

26 

CPSUM-O, 


CPHS 

27 

90 IF(CCEF(K,1»J).NE,0.)G0 TO 97 


CPHS 

28 

IF ( ILSE ( J ) *LT.0 ) GO TO 100 


CPHS 

29 



CPHS 

30 

IF COEFFICIENTS ARE 2ER0* USE OTHER TEMPERATURE 

INTERVAL 

CPHS 

31 



CPHS 

32 

KK = K 


CPHS 

33 

K = 1 


CPHS 

34 

IF (KK.EO.l) K = 2 


CPHS 

35 

57 S(J) = M ( (C0EF(K,5,J)/4. )*TT+ COEF ( K , 4 , J ) /3 . ) *TT+ C0EF(K,3,J)/ 

CPHS 

36 

1 2.)* TT-(CCEF(K,2#J) ) *TT + COEF ( K , 1 , J ) *TLN + 

COEF (K,7 , J) 

CPHS 

37 

HC(J) = ( ( ( (COEF(K,5,Jl/5. )*TT* COEF ( K ,4 , J ) /4. ) *TT+ C0EF(K,3,J)/ 

CPHS 

38 

1 3.) *TT i C0EF(K,2,J ) / 2 • ) *TT + C0EF(K,1,J) + 

COEF (K,6 , J ) /TT 

CPHS 

39 

CPSUM= CPSUM-nm (C0EF(K,5,J)*TT+ C0EF1 K ,4, J ) ) *TT+ C0EF(K,3, J ) ) *TT 

CPHS 

40 

1 4 C0EF1K ,2,J ) )*TT+ COEF ( K , 1 , J )) *EN ( J, NPT ) 


CPHS 

41 

‘IF (KK.EG.O) GO TO 100 


CPHS 

42 

K = KK 


CPHS 

43 

KK = 0 


CPHS 

44 

ICO IF(J.EQ.NS) GO TO 20C 


CPHS 

45 

Jij4!l 


CPHS 

46 

GO TO 90 


CPHS 

47 

200 RETURN 


CPHS 

48 

END 


CPHS 

49 


c 

SUBRCLTINE MATRIX MAT* 

C MATX 

C MATX 

DOUBLE PRECISION G,X MATX 

LOGICAL FP,$P*TP, I DEBUG , CONVG , NE WR , VOL , UV , SV , TV , LOGV MATX 

C MATX 

C THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR MATX 

C IBM 360 MACHINES ONLY MATX 

C MATX 

C DOUBLE PRECISION HSUM , S SUM , CPR , DLVTP ,DLVPT , GAMMAS MATX 

C DOUBLE PRECISION COEF , S , EN , ENLN , HO , DELN MATX 

C DOUBLE PRECISION H ,F , SS , TERM 1 , TERM , S SS MATX 

C MATX 

COMMON /POINTS/HSUM( 13) , SSUM(13) ,CPR(13) tOLVTPt 13) ,DLVPT(13) , MATX 

1 GAMMAS ( 13) *P(26),T(52) »V(13)»PPP< 13 ) * WM { 13 ) , SONVEL ( 13 ) ,.TTT ( 13 ) , MATX 

2 VLM( 13 ),TGTN( 13) MATX 

COMMON /SPECES/C0EF(2f7,100) ,S( 100) »HO( 100 ) , DELN (ICO) , DUMMY! 100) , MATX 

1 EN! ICO *13), ENLN (100), At 10, ICO), SUB <100, 3) , I USE (100) , TEMP (50, 2) MATX 
COMMON /MISC/ENN,SUMN,TT,SO,ATOM<3, 101) ,LLMT! 10) ,B0 ( 10) , BOP < 10, 2 ) ,MATX 

1 TM,TLOW,TMID,THIGH,PP,CPSUM,OF,EQRAT»FPCT,R,RR , HSU BO , AM ! 2 ) , MATX 

2 HPP ( 2 ) »RH ( 2 ) * VMIN! 2) , VPLSt 2) ♦ WPt 2) »DATA(22) ,NAMEt 15,5) » MATX 

3 ANUM( 15,5)»PECWT(15)»ENTH(15) , F AZ ( 15 ) , RTEMP ( 15 ) , FOX ( 15 ) ,DENS (1 5 ) , MATX 

4 RHOP ,RMW( 15 ) *TLN<CR,OXF{ 15) ,ENNL , TR ACE , LLMTS ( 10 ) , S BOP ( 10, 2 ) MATX 

COMMON /DOUBLE/ G(20,21):,. X(20) MATX 

COMMON /INDX/ I DEBUG, CONVG, TP ,HP , SP , I SV ,NPP , MOLE S ,NP , NT, NPT , NLM , MATX 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 
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C 

C 


1 NS»KMAT , I MAT, 10 1 , I GF , NOF ,.N0MI T , I P , NE WR 

,NSUB,NSUP.RKT,DETN, SHOCK , 

M ATX 

26 

2 I0NS,NC ,NSERT, J $0L ,. JL I Q ,K ASE , NRE AC , IC, 

JS1 ,VOL, IT,CALCH,NLS,LOGV, 

M ATX 

27 

3 I SUP , I SUB * I TNUM , ITM,INCDFZ,.INCDEQ»CPRF 

, I PP , SEQL »PC PI T 

M ATX 

28 



M ATX 

29 

ECU I VALENCE < NLM , L > , < TP , T V ) , ( S V , SP ) , < U V 

,HP ) 

MATX 

30 



M ATX 

31 

102 = IQ1 4; 1 


MATX 

32 

IQ3 = 1 02 +: 1 


MATX 

33 

KMAT = 103 


MATX 

34 

[F{ .NOT. CONVG. AND. TP) KMAT = IQ2 


MATX 

35 

IMAT = KMAT - 1 


MATX 

36 



MATX 

37 

CLEAR MATRIX STORAGES TO ZERO 


MATX 

38 



MATX 

39 

DO 211 1=1, IMAT 


MATX 

40 

DO 211 K= 1 »KM AT 


MATX 

41 

GII,K)= O.CDO 


MATX 

42 

211 CONTINUE 


MATX 

43 

SSS = 0. 


MATX 

44 

HSUM(NPT) = 0. 


MATX 

45 



MATX 

46 

BEGIN SET UP OF ITERATION MATRIX 


MATX 

47 



MATX 

48 

KK = L 


MATX 

49 

CO 65 J=1,NS 


MATX 

50 

IFUUSE(J).LT.C) GO TO 65 


MATX 

51 

H-HO<J)*EN{J,NPT) 


MATX 

52 

I F ( IUSE ( J ) .GT.O) GO TO 70 


MATX 

53 

F = ( HO ( J ) - S ( J ) 4'ENLN ( J ) 4'TM ) *EN ( J , NPT ) 


MATX 

54 

SS = H-F 


MATX 

55 

TERM! = H 


MATX 

56 

IF {KMAT .EC. IQ2) TER'M 1 = F 


MATX 

57 

DC 55 I = 1, L 


MATX 

58 



MATX 

59 

CALCULATE THE ELEMENTS R<I»K) 


MATX 

60 



MATX 

61 

IF ( A { I , J ) .EQ. 0.) GO TO 55 


MATX 

62 

TERM= A{ I, J)*EN(J*NPT) 


MATX 

63 

CC 15 K= I , L 


MATX 

64 

G{ I , K ) = G(IfK) + A<K,J)*TERM 


MATX 

65 

15 CONTINUE 


MATX 

66 



MATX 

67 

G { I, IQ1 ). = G ( I , 101 ) + TERM 


MATX 

68 

GC I, 102 ) = G{ I , IQ2 )+A(I , J ):*TERM1 


MATX 

69 

IF (CONVG .OR. TP) GO TO 55 


MATX 

70 

G { I , IQ3 ) = G( I , IQ3)+A( I, J).*F 


MATX 

71 

IF (SP) GUQ2,I) * G ( I Q 2 ». I ) + A(I,J)*SS 


MATX 

72 

55 CONTINUE 


MATX 

73 

IF {KMAT .EQ. IQ2) GO TO 64 


MATX 

74 

IFICONVG.OR.HP ) GO TO 59 


MATX 

75 

G( 102, IQ1 ) =? G( IQ2, IG1) + SS 


MATX 

76 

Gt 102, IQ2 )=G( IQ2, IQ2)+H0{ J )*SS 


MATX 

77 

G{ 102 » IQ2 ) = G( 102, IG3) + (SI J) - ENLNtJ) 

-TM ) *F 

MATX 

78 

GO TO 62 


MATX 

79 

59 61 IQ2 ,IQ2);=G{ IQ2 , IQ2 ) +H0 { J ) *H 


MATX 

80 

IF {CONVG) GO TO 64 


MATX 

81 

G< IQ2, I 02 )=G( 102, I03)+H0( J)*F 


MATX 

82 

62 GUQ1, IG2 ). = G<IQ1»IQ3)+F 


MATX 

83 

64 G( IQ1,IG2)=G( IQ1,IQ2)+TERM1 


MATX 

84 

GC TO 65 


MATX 

85 



MATX 

86 

CGNCENSED SPECIES 


MATX 

87 



MATX 

88 

70 KK = KK 4 1 


MATX 

89 

CO 75 I = 1 , L 


MATX 

90 
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*Gt I » KK ) = A ( I , J ) 

M ATX 

91 


GilfKMATl = r { I » KMAT ) - A ( I, J ) *EN ( J , NPT ) 

M ATX 

92 

75 

CONT INUE 

MATX 

93 


G( KK , IQ2 ) = HOJ) 

M ATX 

94 


GIKK,KMA7) = HOiJ) - S(J) 

MATX 

95 


HSUM(NPT) * HSUM ( NPT ) + H 

MATX 

96 


IFl.NOT.SPl GO TO 65 

MATX 

97 


SSS = SSS < S(J)*EN( J,NPT): 

MATX 

98 


G ( 1 0 2 t K K ) = SIJ) 

MATX 

99 

65 

CONTINUE 

MATX 

100 


SSS = SSS 4 G( IQ2, IQ1 ) 

MATX 

101 


HSUM(NPT) = HSUM ( NPT ) + GU01,IQ2) 

MATX 

102 


G( IQ1, I Q 1 ) =? SUMN - ENN 

MATX 

103 



MATX 

104 


REFLECT SYMMETRIC PORTIONS OF THE MATRIX 

MATX 

105 



MATX 

106 


ISYM = 101 

MATX 

107 


IFtHP.0R.C0NVG)ISYM=IQ2 

MATX 

108 


DO 102 1=1,1 SYM 

MATX 

109 


DO 102 J^ItlSYM 

MATX 

110 


Gl J , I ) =G( I » J ) 

MATX 

111 

102 

CONTINUE 

MATX 

112 



MATX 

113 


COMPLETE THE RIGHT HAND SIDE 

MATX 

114 



MATX 

115 


IF( .NCT.CONVG) GO TC 140 

MATX 

116 


■IF ( .NCT «LOGV ) GO TO 175 

MATX 

117 



MATX 

118 


LOGV = .TRUE.— SET LP MATRIX TO SOLVE FOR DLVP1 

MATX 

119 



MATX 

120 


G l 101, IC2) =? ENN 

MATX 

121 


IQ = 'I Q 1 - 1 

MATX 

122 


DO 135 I = 1,10 

MATX 

123 


G ( I, 102 ) = G( I, IQ1) 

MATX 

124 

135 

CONTINUE 

MATX 

125 


GO TC 175 

MATX 

126 

140 

DO 145 1=1, L 

MATX 

127 


X C 1 ) =B0 ( I )-G ( I, IC1) 

MATX 

128 


GIItKMAT) = G( I,KMAT)+X( 1). 

MATX 

129 

145 

CONTINUE 

MATX 

130 


GIIQltKMAT) = G( IQ 1 » KMAT ) +ENN-SUMN 

MATX 

131 



MATX 

132 


COMPLETE ENERGY ROW AND TEMPERATURE COLUMN 

MATX 

133 



MATX 

134 


IF (KMAT .EG. IQ2) GO TO 185 

MATX 

135 


IF (SP)ENERGY = SO+ENN-SUMN - SSS 

MATX 

136 


IF(HP)ENERGY=>HSUBO/TT - HSUM(NPT) 

MATX 

137 


G( IQ2,IQ3 )=G( IQ2»IQ3)+ ENERGY 

MATX 

138 

175 

G( IQ2, IG2 )= GII02, IQ2I+CPSUM 

MATX 

139 

185 

IF ( .NOT .VOL.OR.CONVG) GO TO 1000 

MATX 

140 



MATX 

141 


CONSTANT VOLUME MATRIX 

MATX 

142 



MATX 

143 


IC =101-1 

MATX 

144 


IF(KMAT.EQ.I02) GO TC 230 

MATX 

145 


CC 220 1 = 1, IQ 

MATX 

146 


G ( 101,1 ) = G( IQ2,I )— G ( I.Q1, I ) 

MATX 

147 


G f I , IG 1 ) = G( I , IQ2 ) — G 1 1 , IQ1 ) 

MATX 

148 


G( I, IC2) = G ( I , I Q3 ) 

MATX 

149 

220 

CONTINUE 

MATX 

150 


6(101,101) =? G( IQ2, IQ2)-G( IQ 1 , 1 Q2 1-G ( I Q2 , 1 Q 1 1 

MATX 

151 


G(I01,IQ2) * G( IG2, IQ3)-G( 101, IQ3) 

MATX 

152 


IF (UV) G< IQ1 , IQ2 ) = G( I Q1 , I Q2 > + ENN 

MATX 

153 


GO TO 260 

MATX 

154 
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230 

DO 2 AC 

1 = 1, IU 


G(I, 101 ) = G ( 

240 

CONTINUE 

260 

KMAT = 

IMAT 


IMAT = 

I MAT- 1 

1000 

RETURN 

END 



MATX 155 
MATX 156 
MATX 157 
MATX 158 
MATX 159 
MATX 160 
MATX 161 


C 

C 


SUBROUTINE CUT1 OUTP 

OUTP 

DCU8LE PRECISION G,X OUTP 

OUTP 

THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE RECUIRED FOR OUTP 

IBM 360 MACHINES ONLY OUTP 

OUTP 

DOUBLE PRECISION HSUM , S SUM , CPR , DLVTP , DLVPT , GAMMAS OUTP 

DOUBLE PRECISION COEF i S , EN , ENLN , HO , DELN OUTP 

OUTP 

LOGICAL EGL»FROZ»TPtHP»SP i tHPSP»TPSP»MOLES»VOL * PUNCH , RKT OUTP 

OUTP 

DIMENSION NV ( 1 3 ) » Z ( 10 » 3 ) *HEAD ( 15 ) v YX ( 5 ) ,YN(5),FSB(3) » FRHOt 3 ) OUTP 

DIMENSION CENSTY( 13) ,ENTLPY( 13) ,ENTRPY(13) ,SPHEAT<13 ) OUTP 

OUTP 

COMMON /POINTS/HSUMI 13) ,SSUM(13) ,CPR ( 13 ) ,DL VTP 1 1 3 ) , C L VPT ( 13 ) , OUTP 

1 GAMMAS (13),P(26),T(52)»V( 13 ) ♦ PPP t 13 ) , WM ( 1 3 ) , SONVEL < 1 3 > ,TTT (13 ) ♦ OUTP 

2 VLM( 1 3 ) » TOTN I 13 ) OUTP 

COMMON /SPECES/COEF (2*7, 100) ,S ( 100) *H0 ( 100 ) , DELN (ICO) ,DUMMY{ 100) , OUTP 

1 EN( ICO, 13), ENLN (100), A (10, ICO) , SUB UOO , 3 ) , I USE ( ICC ) , TEMP I 50, 2) OUTP 

COMMON /MISC/ENN,SUMN,TT *.S0*AT0M{3»101) »LLMT(10) ,B0( 10) , BOP ( 10, 2 ), OUTP 

1 TM, TL0W,TMID,THIGH^PP,CPSUM,0F,EQRAT,FPCT,R,RR,HSUB0,AM(2) , OUTP 

2 HPP<2) ,RH(2H VMIN(2)»VPLS(2) , WP ( 2 ) ,DATA(22) , NAME (15, 5) , OUTP 

3 ANUM(15,5) ,PECWT( 15) ,ENTH( 15),FAZ<15) ,RTEMP(15) ,FOX ( 15 ) *DENS( 15 ) ,OUTP 

4 RHOP , RMW( 15) *TLN*CR,OXF( 15) ♦ ENNL*TR ACE , LLMTS ( 10 ) , SBOP( 10,2) OUTP 

COMMON /DOUBLE/ G( 20,21).,. X(20) OUTP 

COMMON /INCX/IDE8UG,C0NVG».TP,HP*SP,ISV,NPP*M0LES,NP,NT,NPT»NLM t OUTP 

1 NS,KMAT, IMAT', 10 1 , IOF * NOF , NOM! T , I P ,NE WR , NSUB , NSUP,RKT ,DETN t SHOCK , OUTP 

2 iCNS*NC»NSERT,JSOL,JLIQ*XA$E*NREAC,IC,JSl , VOL , IT,CALCH,NLS,LOGV, OUTP 

3 ISUP, I SUB , ITNUM, ITM, I NCDF Z ,. INCDEQ , CPRF , I PP , SEQL ,PC PLT OUTP 

COMMON /PERF/PCP (22) ,VMOC( 13 ) ,.$P I M ( 13) ,VACH13) ,SUBAR(13), OUTP 

1 SUP AR ( 13 ).„APP( 13) ,AEAT( 13) , CSTR , EQL ,FROZ , SSO , AREA , A WT ,NFZ , OUTP 

2 APPL , ARAT 10 , ELN OUTP 

COMMON /SAVED/SLNt IOC), IQSAVE,ENSAVE,ENLSAV,LSAVE,JSOLS, JLIQS, OUTP 

1 LLL,LM,MAXNP, STORE (52,16 ),XS<20)i WMOL (20) ,IND(20) ,NM, OUTP 

2 FIRSTP^F IRSTV OUTP 

COMMON /OUPT /FMT (30) *FP ( 4) »FTI4 ) , FH( 4) , FS ( A ) , FM ( 4) , F V ( A ) *FD(4l , OUTP 

1 FC(4 ) ,FG<4) ,FB,FMT13*F1,F2,.F3,F4',F5,FL(4) ,FMTl9 ,FA 1 ,FA2 , OUTP 

2 FR1,FC1,FN(4),FR(4) ,FA(4):,FI(4) ,FMT9X,F0 OUTP 

COMMON /CONTRL/TRNSPT,FROZN, PUNCH, NODATA OUTP 

OUTP 

ECU I VALENCE ( V ,NV ) , ( Z i HO ) , ( I B , FB ) OUTP 

OUTP 

HE AD= < 1H ,2A4*5( A2,F8.5,3X) *5X,F7.5,F13.3,4X,A1 ,F10,2,F9.4) OUTP 

OUTP 

DATA HEAD/4H( 1H , 4H , 2A4, 2H , 5 ,4H ( A2 , , 4HF8. 5 ,AH,3X),2H,5 ,2HX, OUTP 

1 »4HF7.5 , AH, F13 ,AH.3,A ,AHX,A1 ,4H,F10 ,AH.2,F ,4H9.4)/ OUTP 

DATA FUEL/4HFUEL/ » OX ID/4H0XI D/,ANT/3HANT/ ,CX/1H0/,IZ/ 2HOO/ , OUTP 

1 YN/2H, 1 , 2H » 2 » 2H , 3 , 2H,.4, 2H,5 / , F75/AHF7 . 5/ , OUTP 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3A 

35 

36 

37 

38 

39 
AO 

41 

42 
A3 
AA 

45 

46 

47 

48 

49 
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C 


C 

c 


2 YX/3H,57,2H,AA,3H,31,3H,18,2H, 5 / , F73/AHF7.3/ 
DATA FRHO/AHRHO, ,AH G/C,1HC/ 


IFIKASE.NE.O) WRITE (6,3) KASE 
3 FCRMAT ( 9H CASE NO. , 18) 

IF ( .NOT. MOLES ) WRITE<6,5) 

5 FCRMAT ( 77X, A6HWT FRACTION ENERGY STATE TEMP OENSITY/ 

1 10X T 16HC HEM I CAL FORMULA ».51X»2IH (SEE NOTE) CAL/MOLilOXv5HOEG 

2 AX , AHG/CC ) 

IF(MOLES) WR I TE ( fc » 6 ) 

6 FORMAT (79X»5HMOLES»7X» 33H ENERGY STATE TEMP OENSITY/ 

1 10X»16HC HEMIC AL FORMULA ,66X ,7HCAL/M0L , 10X , 13HDEG K G/CC ) 

DO 15 N= 1 »NREAC 
IF(FOX(N).NE.OX)GO TC 10 
HOI = OX ID 
H02 = ANT 
GO TO 11 

10 HOI * FUEL 
HD2 = FB 

11 DO 13 J = 1 » 5 

IF(NAME(N,J).EQ. I Z .OR .NAME { N , J ) . EQ . I B ) GO TO 1A 
13 CONTINUE 
J-6 

1A J*J-1 

HE A 0 ( 3 ) = YN ( J ) 

HEAD( 7 ) =YX ( J ) 

HE AD ( 9 ) n F75 

IF(PECWT(N J.GE.10. ) HEAD(9)=F73 

WR ITE ( 6 ,HE AD) HD 1 1 HC 2 » (NAME (N, JJ) , ANUM(N, J J) , JJ = 1, J ) ,PECWT(N) , 
1 ENTH(N), FAZ(N) ,RTEMP(N) » DENS(N) 

15 CONTINUE 

FPC = 100. /( l.+OF) 

WR I T E ( 6 * 20 ) OF,FPC,EORAT,RHOP 

20 FORMAT (1H0,15X, AHO/F=» F 8. A ,AX , 1 3HPERCENT FUEL-, F8 . A , AX^ 

1 19HEQU I V AL ENCE RATIO- ,F7. A , AX , 17HREACTANT DENSI T Y= »F8 . A// ) 
AGV = 9.80665 

RETURN 

ENTRY OUT 2 
FMT(A) = FMT ( 6 ) 


PRESSURE 

50 IF(R.LT.10.) GO TO 60 
CALL EFMT ( NPT » FP » PPP ) 

GO TO 6A 

60 CALL VARFMT (PPP,NPT) 

WRITE (6, FMT) ( FP ( I ) , I =1 , A) , ( PPP < J ) , J=l »NPT) 

TEMPERATURE 

6 A DO 65 I =;1 , NPT 
NV( I ) = TTT ( I ) + .5 
65 CONTINUE 

FMT ( A )= FMT 13 
FMT t 5 )= FMT 1 9 

WRITE (6, FMT) ( FT (I) , I =1 , A) ♦ < NV ( J ) , J=1 ,NPT ) 
OENSITY 

CO 70 1 = 1, NPT 

I F (VLM ( I J.NE.O. ) V ( I ) = 1 . /VLMt I ) 

DENST Y ( I ) = V( I) 


OUTP 

50 

OUTP 

51 

CUTP 

52 

OUTP 

53 

OUTP 

5A 

OUTP 

55 

OUTP 

56 

K, OUTP 

57 

OUTP 

58 

OUTP 

59 

OUTP 

60 

OUTP 

61 

OUTP 

62 

OUTP 

63 

OUTP 

6A 

OUTP 

65 

OUTP 

66 

OUTP 

67 

OUTP 

68 

OUTP 

69 

OUTP 

70 

OUTP 

71 

OUTP 

72 

OUTP 

73 

OUTP 

7A 

OUTP 

75 

OUTP 

76 

OUTP 

77 

OUTP 

78 

OUTP 

79 

OUTP 

80 

OUTP 

81 

OUTP 

82 

OUTP 

83 

OUTP 

8A 

OUTP 

85 

OUTP 

86 

OUTP 

87 

OUTP 

88 

OUTP 

89 

OUTP 

90 

OUTP 

91 

OUTP 

92 

OUTP 

93 

OUTP 

9A 

OUTP 

95 

CUTP 

96 

OUTP 

97 

OUTP 

98 

OUTP 

99 

OUTP 

100 

OUTP 

101 

OUTP 

102 

OUTP 

103 

OUTP 

10A 

OUTP 

105 

OUTP 

106 

OUTP 

107 

OUTP 

108 

OUTP 

109 

OUTP 

110 

OUTP 

111 

OUTP 

112 

OUTP 

113 
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c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


t 


70 CONTINUE 

OUTP 

1 1 A 

. CALL EFMT (NPT, FRHO,V) 

OUTP 

115 


OUTP 

116 

ENTHALPY 

OUTP 

117 


OUTP 

118 

DO 75 1=1, NPT 

OUTP 

119 

vm * HSUMI I) * R 

OUTP 

120 

ENTLPY ( I ) = VI I) 

OUTP 

121 

75 CONTINUE 

OUTP 

122 

FMT ( 5 ) = FB 

OUTP 

123 

iIFIR.LT.10.) GO TO 76 

OUTP 

12 A 

CALL EFMT ( NPT JFH,V ) 

OUTP 

125 

FMT I 7 } = FI 

OUTP 

126 

GO TO 77 

OUTP 

127 

76 FMT ( 7 ) = FI 

OUTP 

128 

WRITE ( 6 » FMT ) ( FH ( I ) i I = 1*4) , ( V ( J ), , J = 1 , NPT ) 

OUTP 

129 


OUTP 

130 

ENTROPY 

OUTP 

131 


OUTP 

132 

FMT l 7 ) = F4 

OUTP 

133 

77 CO 78 1=1, NPT 

OUTP 

13A 

Vtl) SSUM(I) * R 

OUTP 

135 

ENTRPY ( I ) = VII) 

OUTP 

136 

78 CONTINUE 

OUTP 

137 

WRITE ( 6 , FMT 1 I FS (I) , I = 1 , 4 ) , < V ( J ) , J = 1 ,NPT ) 

OUTP 

138 

WRITE (6,80) 

OUTP 

139 

80 FORMAT ( 1H ) 

OUTP 

140 


OUTP 

141 

MOLECULAR WEIGHT 

OUTP 

142 


OUTP 

143 

FMT ( 7 ) = F 3 

OUTP 

144 

WRITE (6, FMT) <FM( I ) * I = 1,4) ,<WM(J) ,J=1,NPT) 

OUTP 

145 


OUTP 

146 

IDLV/DLP ) T 

OUTP 

147 


OUTP 

148 

FMT ( 7 ) = Ff 

OUTP 

149 

IF(EOL) WR I TE { 6, FMT ) (FVI I ) ,1=1,4) , (DLVPT (J) ,J=i,NPT) 

OUTP 

150 


OUTP 

151 

( DLV/DLT ) P 

OUTP 

152 


OUTP 

153 

FMT ( 7 )= F4 

OUTP 

154 

IF(EOL) WR ITE ( 6, FMT ) (FD< I ) ,1 = 1, A) , (DLVTP(J) ,J = i,NPT) 

OUTP 

155 


OUTP 

156 

HEAT CAPACITY 

OUTP 

157 


OUTP 

158 

IFIR.GT.10.) FMT ( 7 ) =F 1 

OUTP 

159 

DO 85 1=1, NPT 

OUTP 

160 

VII). = CPR(I) * R 

OUTP 

161 

SPHEATt I ) = VII) 

OUTP 

162 

85 CONTINUE 

OUTP 

163 

WRITE(6*FMT) I FC II) , 1= 1 ,.4 ) , ( V ( J > , J= 1 , NPT ) 

OUTP 

164 


OUT^ 

165 

GAMNA(S) 

OUTP 

166 


OUTP 

167 

FMT I 7 ) = FA 

OUTP 

168 

WRITE I 6, FMT) (FG( I ) , I=U ,4 )»( GAMMAS ( J ) ,J = 1,NPT) 

OUTP 

169 


OUTP 

170 

SONIC VELOCITY 

OUTP 

171 


OUTP 

172 

FMT ( 7 )= FI 

OUTP 

173 

DO 95 I = 1 ,NPT 

OUTP 

174 

SONVEL ( I ) = (RR*GAMMAS( I )*TTT< I )/WM( I) )**.5 

OUTP 

175 

95 CONTINUE 

OUTP 

176 

WR IT E ( 6 ,.FMT ) (FLl I ) , 1=1 , 4 ) , (SONVEL ( J ) , J= , NPT ) 

OUTP 

177 
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PUNCHED CARDS 

OUTP 

179 



OUTP 

180 


I F C .NOT. PUNCH) GC TO 4 N 

CUTP 

181 


DO 1 1=1, NPT 

OUTP 

182 


IF(RKT.AND. I S V. EQ .0 . AND. MAXNP. G T. 0. AND. (I . EQ. 1 . OR . I . EQ. 2 ) ) GO 

TO 10UTP 

183 


PUNCH 2, TTTID.PPPI I ) ,DENSTY( I ) ,ENTLPY< I ) ,ENTRPYtl) ,WM(I) , 

OUTP 

184 

1 DLVPTl I ) ,CLVTP( I),V(I) » G AMM AS ( I ) , SONVEL ( I ) ,FPC 

OUTP 

185 

2 

FORMAT {F8.2,2(3X,E1C.5),F11.2,F11.4,F11.5/2F11.6,F11.5,F11.6, 

OUTP 

186 

1 F10.2,2X,F8.4) 

OUTP 

187 

1 

CONT INUE 

OUTP 

188 



OUTP 

189 

A 

RETURN 

OUTP 

190 



OUTP 

191 


ENTRY OUT 3 

OUTP 

192 



OUTP 

193 


TR A = 5.E-6 

OUTP 

194 


IFITRACE.NE.O* ) TR A= TRACE 

OUTP 

195 


I F ( • NOT • ECL ) GO TO 331 

OUTP 

196 



OUTP 

197 

MOLE FRACTIONS - EQUILIBRIUM 

OUTP 

198 



OUTP 

199 


WRITE (6,80) 

OUTP 

200 


FMT ( 7 )= F 5 

OUTP 

201 


WR I T E f 6 ,.310 ) 

OUTP 

202 

310 

FORMAT ( 15HCM0L E FRACTIONS //) 

OUTP 

203 


DO 33C K= 1 » NS 

OUTP 

204 


DO 315 1 = 1, NPT 

OUTP 

205 


VtU = EN ( K , I ) /TCTN ( I ) 

OUTP 

206 

315 

CONTINUE 

OUTP 

207 


DO 316 1=1, NPT 

OUTP 

208 


IFITRACE.EQ.O. ) GO TO 317 

OUTP 

209 


IF ( V ( I ) .GE • TRACE ) GC TO 325 

OUTP 

210 

317 

IF<V<l).GE.(5.E-6) ) GO TO 320 

OUTP 

211 

316 

CONTINUE 

OUTP 

212 


GO TO 330 

OUTP 

213 

320 

WRITE (6, FMT) SUB ( K , 1 ) , SUB f.K , 2 ) , SUB ( K , 3 ) , F B , ( V ( I ) , I = 1 ,NPT ) 

OUTP 

214 


GO TO 330 

OUTP 

215 

325 

FSB ( 1 ) = SUR ( K , 1 ) 

OUTP 

216 


FSB (2) = SLB(K,2) 

OUTP 

217 


FSB ( 3 ) =? SUB ( K , 3 ) 

OUTP 

218 


CALL EFMT (NPT^FSBj V) 

CUTP 

219 

330 

CCN'T INUE 

OUTP 

220 

331 

WRITE(6».335) TRA 

OUTP 

221 

335 

FORMAT ( 82HOADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE 

MOL OUTP 

222 


IB FRACTIONS WERE LESS THAN ,E12.5,28H FOR ALL ASSIGNED COND I T I ONS/OUTP 

223 


2/1 

CUTP 

224 


L I NE= 0 

OUTP 

225 


NN = 1 

OUTP 

226 


IF ( ECL ) NN=NPT 

OUTP 

227 


DC 35C K 5 ? 1 ,NS 

OUTP 

2 28 


DC 340 1=1, NN 

OUTP 

229 


IF UEN(K,I)/TOTN( I ) l.GE.TRA) GO TO 343 

OUTP 

230 

340 

CONTINUE 

OUTP 

231 


LINE= LINE-F1 

OUTP 

232 


Z ( L INE , 1 )= SUB { K , 1 ) 

OUTP 

233 


Z ( L INE » 2 ) = SUB ( K , 2 ) 

OUTP 

234 


Z ( L INE , 3 ) = SUB ( K , 3 ) 

OUTP 

235 

343 

IF ( (LINE.NE. 10) .AND. K.NE.NS) GO TO 350 

OUTP 

236 


IF UINE.EC.O) GO TO 1000 

OUTP 

237 


WRITE (6, 345) ( Z ( LN , 1 ) , Z ( LN , 2 ) , Z ( LN , 3 ) , LN = 1 , L I NE ) 

OUTP 

238 

345 

FORMAT ( 1 0 ( IX , 3A A ) ) 

OUTP 

239 


LINE- 0 

OUTP 

240 

350 

CONTINUE 

OUTP 

241 


I F C .NOT. MOLES) WRITE(6,360) 

OUTP 

242 


11 E B B li B MM M 11 M Jl. 


M il U M 


L L 



360 FORMAT ( 7FHCNOTE. 
2DANT IN TOTAL OX 
10C0 RETURN 
ENC 


WEIGHT FRACTION OF 
DANTS ) 


FUEL IN TOTAL FUELS 


AND OF OXIOUTP 243 
OUTP 244 
OUTP 245 
OUTP 246 


C 

SUBROUTINE VARFMT ( V»NPT ) 

C 

DIMENSION V ( 1 3 ) 

C 

CCMMON/OUPT/FMTI 30 ) , FP ( 4 ) ♦ FT ( 4 ) , FH 1 4 ) , FS ( 4 ) ,FM ( 4 ) , F V ( 4) , FO ( 4 ) , 

1 FC(4),F&(4) • FB*FMT13,Fl # R2»F3*F4VF5,FL(4» , FMT I 9 , F A 1 , FA2 » 

2 FR1»FC1»FN(4) » FR I 4 ) »FA(4) , F I t 4 ) , FMT9X , FO 
C 

CC 45 I*?l »NPT 
K* 2*1+3 
FMT ( K ) = FA 

IF ( V ( I ) .GE.10. ) FMT(K) = F3 
IF (VII). GE. 100.) FMTtK): = F2 
IF <V(I ).GE. 10000. )FNT(K) =* FI 
IF (VU) .GE. 1000000. ) FMTtK) * FO 
45 CONTINUE 
RETURN 
END 


VRFT 1 
VRFT 2 
VRFT 3 
VRFT 4 
VRFT 5 
VRFT 6 
VRFT 7 
VRFT 8 
VRFT 9 
VRFT 10 
VRFT 11 
VRFT 12 
VRFT 13 
VRFT 14 
VRFT 15 
VRFT 16 
VRFT 17 
VRFT 18 


C 

SUBROUTINE EFMT < NPT A A, V ) EFMT 

C EFMT 

DIMENSION A A ( 3 ) t- V 1 13 ) , W<13), NEI13)* FRMT ( 7 ) EFMT 

C EFMT 

COMMON /OOP T /FMT( 30) *FP{ 4) »FT (4) , FH ( 4 ) ♦ F$ < 4 ) , FMt 4 ) , F V ( 4) , FD ( 4 ) , EFMT 

1 FC(4 )tFG(A),FB, FMT 1 3 » F 1 ,.F 2 *F3 , F4 f F5 ,FL < 4 ) , FMT I 9 ,F A 1 , FA2 » EFMT 

2 FR1,FC1,FNIA),FR(A)>FA(A).,FU4) ,FMT9X,F0 EFMT 

C EFMT 

DATA FRMT/3HI 1H, AH, 3 A A, AH, 11X,AH,13( »4HF7. A,4H, 12) , 1H ) / , F63/4HF6 .3EFMT 
1/^FI3/4H, 13 )/iF7A/AHF7.4/,FI2/4H, I 2 ) / * F 1 IX /4H , 1 1 X/ , F 2X/3H i 2X/ EFMT 

C EFMT 

FRMT ( 5 ) = F7A EFMT 

FRMT ( 6 ) = F 1 2 EFMT 

Jl = 1 EFMT 

FRMTI3) = F2X EFMT 

IF(FMT(4).NE.FMT9X) GO TO 130 EFMT 

J1 = 2 EFMT 

FRMT I 3 ) = F 1 IX EFMT 

130 DC 145 I=J1»NPT EFMT 

IF (V ( I ) .NE.O. ) GO TO 140 EFMT 

W(I) = 0. EFMT 

NE ( I ) = 0. EFMT 

GO TO 1A5 EFMT 

140 EE = ALCG1C ( ABS ( V ( I ) ) ) EFMT 

NE ( I ) = EE EFMT 

FE = NF(I) EFMT 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1A 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
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IF ( EE. LE.O.. AND.Fe.NE.EE) NE(I)=NE(I)-1 

EFMT 

27 


IF( I ABS ( NE ( I) J.LT.10) GO TO 144 

EFMT 

28 


FFMT ( 5 ) * F63 

EFMT 

29 


FRMT ( 6 ) = F 1 3 

EFMT 

30 

1A A 

WU) = V ( I ):/10.**NE( I ) 

EFMT 

31 

145 

CONTINUE 

EFMT 

32 


WRITE(6,FRMT ) ( A A ( I ) » I = 1, 3 ) , ( W ( J ) , NE ( J ) , J = J 1 , NPT ) 

EFMT 

33 

1000 

RETURN 

EFMT 

34 


END 

EFMT 

35 


C 


SUBROUTINE THERMP (*) THRP 

THRP 

THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR THRP 

IBM 260 MACHINES ONLV THRP 

THRP 

DOUBLE PRECISION HSUM , S SUM .C PR ? DLVTP , DLVPT , GAMMAS THRP 

DOUBLE PRECISION COEF , S , EN , ENLN , HO » DELN THRP 

THRP 

LOGICAL HP,SP,TP,UV,SV,NEWR, I ONS , MOLES , FRO Z , EQL , PS I A ,RKT,VOL,TV, THRP 
1 CALCH THRP 

THRP 

DIMENSION V L ( 26 ) THRP 

THRP 

COMMON /POINTS/HSUM( 13) ♦ SSUM (13) ,CPR (13 ) ,DL VTP ( 13 ) , DLVPT ( 13) ♦ THRP 

1 GAMMAS ( 13 ) ,P( 26 ) ,T( 52) , V( 13 ) ,PPP( 13) , WM (13) ,SONVFL (13) ,TTT( 13) , THRP 

2 VLM< 13 ) ,TOTNl 13) THRP 

COMMON /SPECES/COEF (2,7,100) ,S( 100) ,H0( 100 ) ,DELN(100) , DUMMY ( 100 ) , THRP 

1 EN( 100,13 ) ,ENLN( ICO) »A( 10, ICO) , SUR(100,3) , I USE ( 100 ) , TEMP ( 50, 2 ) THRP 
COMMON /M I SC /ENN , SUMN » TT *S0 » ATOM ( 3 ♦ 101 ) , LLMT ( 10 ) , BO ( 10) , BOP ( 10 » 2 ) , THRP 

1 TM,TLOW,TM ID, TH IGH , PP ,.CPSUM t 0F , EQR AT , FPCT ,R f RR , HSUBO , AM ( 2 ) , THRP 

2 HPP(2),RH(2), VMINt 2) , VPLS( 2),, WP(2 ) ,DATA (22 ) ,NAME{ 15,5) , THRP 

3 ANUM( 15,5) ,PECWT( 15) ,ENTH(15) ,FAZ( 15) ,RTEMP(15) ,FOX ( 15 ) , DENS ( 1 5 ) , THRP 

A RHOP,RMM 15 ) ^TLN^CR,OXF ( 15) , ENNL , TR AC E , LL M TS ( 1 0 ) , S BCP ( 10, 2 ) THRP 

COMMON /INCX/IDEPUG,CONVG,TP ,HP , SP , I $ V , NPP , MOLE $ ,NP , NT, NPT , NLM , THRP 

1 NS,KMAT,IMAT* I Q 1 , I OF ,NOF , NOM I T , IP,NEWR,NSUB,NSUP,RKT ,DETN, SHO r K , THRP 
7 IONS,NC,NSERT, JSOL, JL I Q ,K1ASE ,NREAC , IC, JS1 ,VOL, I T ,C A LCH,NLS , LOGV , THRP 
3 ISUP,ISUB,ITNUM,ITM f INCDFZ,INCDEQ,CPRF,IPP,SEQL,PCPLT THRP 

COMMON /0UPT/FMT(30) ,FP(4) ,FT(4> ,FH { A ) , FS ( A ) , FM ( A ) , F\M4) » F D ( 4 ) , THRP 

1 FC(4)»FG(4)»FB»FMT13,F1».F2»F3»F4*F5,FL(4),FMTI9,FA1,FA2» THRP 

2 FR1,FC1,FN(A) ,FR(A) , F A ( A ). , F I ( A ) ,FMT9X,FC THRP 

THRP 

EQUIVALENCE (K,I$V ) , ( VL ,P ) , ( UV , HP ) t ( TP , TV ) , ( SP , SV ) THRP 

THRP 

DATA FUUMFU, C/ THRP 

THRP 

IF(T(l).EQ.O.) 1(1) = 3800. THRP 

THRP 

IOF = 0 THRP 

9 5 IOF = I OF + 1 THRP 

OF = CXF(IOF) THRP 

CALL NEWCF THRP 

IFITT.EQ.O-. AND. CALCH) RETURN 1 THRP 

THRP 

SET ASSIGNED P OR VOLUME THRP 

THRP 

IP = 0 THRP 

903 IP = IP F 1 THRP 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1A 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
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PP = P< IF ) 

THRP 

4-8 


VLM(NPT) = VL(IP) 

THRP 

49 



THRP 

50 


SET ASSIGNED T N 

THRP 

51 



THRP 

52 


IT = C 

THRP 

53 

9C 2 

IT = IT 4 1 

THRP 

54 


TT = T ( IT ) 

THRP 

55 


CALL EQL8RM 

THRP 

56 


-IF(TT.NE.C.) GO TO 800 

THRP 

57 


IF(NPT.EC.C) GO TO 1000 

THRP 

58 

800 

K = C 

THRP 

59 


IF! IP.EQ.NP.AND. IT.EC.NT.OR.TT.EQ.O. ) GO TO 860 

THRP 

60 


K = NPT 

THRP 

61 


I F ( NPT. NE • 13 ) GO TO 870 

THRP 

62 

86 0 

IF(.NCT.HP) WR I TE ! 6 » 5 ) 

THRP 

63 

C 

FORMAT! 1H1 ,41X,48HTHER‘M0DYNAMIC EQUILIBRIUM PROPERTIES 

AT ASSIGNEDTHRP 

64 

11 

THRP 

65 


IF I HP ) WR I TE ( 6 » 6 ) 

THRP 

66 

6 

FORMAT ( 1H1 ,36X, 59HTHERMQDYNAMI C EQUILIBRIUM COMBUSTION 

PROPERTIES THRP 

67 


1 AT ASSIGNEC ) 

THRP 

68 


IF(.NOT.VOL) GO TO 861 

THRP 

69 


IF(UV) WRITE ! 6, 10) 

THRP 

70 

10 

FORMAT ( 1H0»£2X»7H VOLUME /) 

THRP 

71 


IF(TV) WRITE!6,11) 

THRP 

72 

11 

FORMAT! 1H0,54X,22HTEMPERATURE AND VOLUME/) 

THRP 

73 


IF(SV) WRITE!6,12) 

THRP 

74 

12 

FORMAT ( 1H0 * 56X , l 8HENTR0PY AND VOLUME/) 

THRP 

75 


GO TO 862 

THRP 

76 

861 

IF(HP) WR ITE ( 6» 20 ) 

THRP 

77 

20 

FORMAT ( 1H0 >6 2X » 1CH PRESSURES /) 

THRP 

78 


IF(TP) WR I T E ( 6 » 2 1 ) 

THRP 

79 

21 

FORMAT! 1H0 , 53X , 24HTEMPERATURE AND PRESSURE/) 

THRP 

80 


IF!SP) WR I TE ( 6, 22 ) 

THRP 

81 

22 

FORMAT! 1H0*55X,2CHENTR0PY AND PRESSURE/) 

THRP 

82 

862 

CALL OUT 1 

THRP 

83 


WRITE (6,863) 

THRP 

84 

863 

FORMAT ( 2 5 HO T HER MOD YN AM IC PROPERTIES//) 

THRP 

85 


IF!. NOT. VOL) GO TO 864 

THRP 

86 


FMT ( 4 ) = FMT ( 6 ) 

THRP 

87 


IF(.NOT.UV) GO TO 864 

THRP 

88 


CO 63 1=1, NPT 

THRP 

89 


FMT ( 2* I +!2 1 = F2 

THRP 

90 


V(I) = HSUB0*R 

THRP 

91 

82 

CONTINUE 

THRP 

92 


WRITE (6, FMT) FUU »FH ( 2) , FB , FB , ( V ! I) ,1=1, NPT) 

THRP 

93 

864 

CALL OUT 2 

THRP 

94 


CALL 0UT3 

THRP 

95 



THRP 

96 


RETURN 

THRP 

97 



THRP 

98 


ENTRY THERM1 

THRP 

99 



THRP 

100 

865 

■IF (K.EQ.O .AND. lOF.EQ.NOF ) GO TO 1000 

THRP 

101 


IF! IDEBUG.GT. 13) IDEBUG=IDEBUG-13 

THRP 

102 


WRITE<6>868) 

THRP 

103 

86 8 

FORMAT! 1H1) 

THRP 

104 


‘IF(NT.EQ.l.AND.NPiEQ.l) GO TO 95 

THRP 

105 


NPT = 0 

THRP 

106 

870 

NPT * NPT < 1 

THRP 

107 


IF ( .NOT .TP.AND.TT.NE.O. ) T( 1)=TT 

THRP 

108 


IF! IP.EQ.l.AND.IT.EQ.l) ISV=-ISV 

THRP 

109 


IF(NT.EQ.l) GO TO 871 

THRP 

110 


IF! IT.EQ.NT.OR.TT^EQ.O. ): ISV=0 

THRP 

111 

871 

CALL SAVE 

THRP 

112 


IF! IT. LT. NT ) GO TO 902 

THRP 

113 


80 
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IF(IP.LT.NP) GO TO 903 
GO TO 95 
1000 RETURN 1 
END 


THRP 114 
THRP 115 
THRP 116 
THRP 117 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE ROCKET <*) 

ROCKE, PERFORMANCE 
DOUBLE PRECISION USQ.ASQ 

IT HE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR 
IBM 360 MACHINES ONLY 

COUELE PRECISION HSUN ♦ SSUM ,CPR , DLVTP , DLVPT .GAMMAS 
DOUBLE PRECISION COEF , S ♦ EN , ENLN , HO ,DELN 

LOGICAL HP.SP.TP.THI ,FROZ', EQL , AREA , SEQL ,CALCH 

COMMON /PO INTS/HSUMt 13) , SSUM (13) ,CPR(13) .DLVTP ( 13 ) , Ct VPT (13 ) , 

1 GAMMAS (13)»Pl26)»T(52)tVtl3),PPPU3),WM(13)» SONVEL { 1 3 ) *TTT ( 13 ) , 

2 VLM< 13 ) »TCTN (13) 

COMMON /SPECES/CCEFt2,7,100)»S(100).HO(100).DELN(lCG> .DUMMY ( 100 ) . 
1 EN( ICO , 13 ) , FNLN ( 100 ) » A ( 10 » 100 ) , SUB < 100.3) . I USE ( ICC ), TEMPI 50 .2) 
CCMMON /MI SC/ENN.SUMN.TT.SO. ATOM ( 3 . 101 ) . LL MT ( 10 ) » BC ( 10 ) . BOP ( 10 , 2 ) 

1 TM,TLOW,TMID.THIGH,PP.CPSUM,OF.EGRAT.FPCT,R,RR.HSUE0,AM(2) . 

2 FPP ( 2 ) ,RH ( 2 ) , VMIN(2)»-VPLS(2).WP{2) » DATA ( 22 ) .NAME 115,5). 

3 A NUN ( 1 5,5 ) .PECWT ( 15 ) , ENTH ( 15 ) , FAZ ( 15 ) .RTEMP ( 15 ) .FOX ( 15 ) .DENS ( 15 ) 

4 RHOP ,RMW( 15 ) ,TLN,CR.OXF ( 15 ) »ENNL » TRACE.LLMTS(10)»SBOP(10'»2) 
COMMON /INCX/IDEBUG.CONVG.TP .HP , SP , I SV , NPP , MOLE S , NP , NT, NPT , NLM , 

1 NS.KNAT, INAT, IQ1, IOF^NOF.NOMI T.IP.NEWR.NSUB.NSUP-.RKT ,DETN, SHOCK, 

2 IONS.NC.NSERT, JSOL, JLIQ.KASE.NREAC, IC, JS1 ,VOL, IT , C A LCH » NLS , LOFV . 

3 ISUP.ISUB.ITNUM, I TM , INCDF Z ,. INCDEQ , CPRF , I PP , SEQL , PC P LT 
COMMON /PERF/PCP ( 22 ) »VMOC< 13 ) , SP I M ( 13 ) , V AC I ( 1 3 ) , SURAR (13) , 

1 $UPAR(12).APP(13),AEAT(13),CSTR,EQL,FRCZ.SS0,AREA,AWT,NFZ, 

2 appl^aratio.eln 


ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

.ROCK 

ROCK 

ROCK 

.ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 


NANELIST/RKTINP/EQL,FR:OZ».SUBAR,SUPAR,PCP»NFZ 

ITM = 1 
NFZ = 1 
APP(l) = 1. 

DO 300 1=1,26 
PCP( I >= 0. 

SUBARU) = 0. 

300 CONTINUE 

ECL = .TRUE. 

FROZ = .TRUE • 

READ <5,RKTINP) 

NPP = 0 
CC 305 1=1,22 

IF (PCP( II.EQ.O. ) GO TO 306 
NPP =’ I 

305 CONTINUE 

306 NPP = NPP+'2 
311 NSUB * 0 

NSUP * C 


ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 

ROCK 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


81 


U II li U 11 II . M M M II M U ¥ H U M ¥ K M 




DO 320 1=1,13 

ROCK 

54 


IF (SUBAR( I ) .NE.O. ) NSUB=NSUB+1 

ROCK 

55 


IF(SUPAR(I ).NE.O.) NSUP=NSUP+1 

ROCK 

56 

320 

CONTINUE 

ROCK 

57 


WRITE ( 6, RKT I NP ) 

ROCK 

58 


S6CL = ECL 

ROCK 

59 


IOF = 0 

ROCK 

60 


TT = 380G. 

ROCK 

61 



ROCK 

62 


LOCP FOR EACH 0/F 

ROCK 

63 



ROCK 

64 

321 

IT = 1 

ROCK 

65 


IOF = IOF + 1 

ROCK 

66 


OF = OXF ( IOF) 

ROCK 

67 


CALL NEWOF 

ROCK 

68 


IFtCALCH.AND.TT.EQ.O.) RETURN 1 

ROCK 

69 


I F ( T ( 1 ) . EO • 0* ) GO TO 322 

ROCK 

70 


TT = T ( 1 ) 

ROCK 

71 



ROCK 

72 


LOOP FOR CHAMBER PRESSURES 

ROCK 

73 



ROCK 

74 

322 

IP = 0 

ROCK 

75 

95 8 

IP =IP +: 1 

ROCK 

76 


ITNUM = 0 

ROCK 

77 


AREA *= .FALSE. 

ROCK 

78 


l IF(T<l).£Q.O.) HP = • TRUE • 

ROCK 

79 


I F ( T ( 1 ) .N E .0. ) TP= • TRUE • 

ROCK 

80 


SP = .FALSE. 

ROCK 

81 


EOL = .TRUE. 

ROCK 

82 


1 SUB = 1 

ROCK 

83 


ISUP = 1 

ROCK 

84 


PP = P( IP) 

ROCK 

85 


IPP = 1 

ROCK 

86 


I "TROT = 3 

ROCK 

87 


ISUPSV = 1 

ROCK 

88 



ROCK 

89 


LOOP FOR PRESSURE RATIOS 

ROCK 

90 



ROCK 

91 

331 

IF(EQL) GO TO 332 

ROCK 

92 


CALL FROZEN 

ROCK 

93 


GO TO 1332 

ROCK 

94 

33 2 

CALL EQLBRM 

ROCK 

95 


IFINPT.NE.NFZ ) GO TO 1332 

ROCK 

96 


CPRF = CPSUM 

ROCK 

97 


I F ( NFZ • NE • 2 ) EQL * SEOL 

ROCK 

98 



ROCK 

99 


TT = C IF NO CONVERGENCE 

ROCK 

100 



ROCK 

101 

1332 

IFITT.NE.O.) GO TO 333 

ROCK 

102 


IF(NPT.LT.l) GO TO 1000 

ROCK 

103 


GO TO 900 

ROCK 

104 

333 

I F 1 IPP.GT.l) GO TO 155 

ROCK 

105 



ROCK 

106 


COMBUSTION CHAMBER 

ROCK 

107 



ROCK 

108 


TP = .FALSE. 

ROCK 

109 


HP = .FALSE. 

ROCK 

110 


SP = .TRUE. 

ROCK 

111 


SO = SSUM(l) 

ROCK 

112 

334 

TMEL T = 0 • 

ROCK 

113 


ITROT= 3 

ROCK 

114 


THI = .FALSE. 

ROCK 

115 


APP( 2 )=( (GAMMAS (1)+1. )/ 2 . ) ** ( GAMMAS ( 1 ) / ( GAMMAS ( 1 )-l . ) ) 

ROCK 

116 


PP = PPP ( 1 ) /APP ( 2 ) 

ROCK 

117 


TT = 2.*TT/(GAMMAS( 1 )+l. ). 

>n CK 

118 


82 
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non non 


ISV - 1 
GC TO 87C 

155 tJSQ * 2.*<HSUM(1)-HSUM(NPT) ) * RR 
IF ( IPP.CT.2) GO TO 500 

N 

THROAT 

190 I F ( .NOT • 1H I ) GO TO 191 
GAMMAS ( 2 ) = 0. 

GO TO 899 

191 ASO = GAMMAS ( 2 )*TT*ENN#RR 
IF(EQL) WR I TE ( 6 1 194 ) APP(2),TT 

194 FORMAT < 7H PC/PT= , F9.6* 6H T = , F9.2) 

I F ( IDERUC.EG.1.0R.IDEBUG.EQ.2) WR I TE ( 6 , 92 3 ) USQ , ASC 
923 F0RMAT( 5H0USQ- f E 1 5 . 8 , 5X , 4 HASC= t E 15 . 8 ) 

DM = (USQ-ASQJ/ASQ 
IFtOH.LT.O. ) 0H=-DH 

IF (DH.LE.0.4E-4.0R. ITROT.EQ.O) GO TO 899 
IF( JSOL.NE.O) GO TO 925 
IF ( TMELT .EC.O. ) GO TC 192 
DLT = ALOGITMELT/TT) 

DD = CLT*CPR(2)/(ENN*DLVTP(2 ) ) 

PP = EXP (DO ) 

APP ( 2 ) = P( IPI/PP 
THI = .TRUE. 

GO TO 331 
925 TMELT = TT 

192 APP<2)= APP(2)/(l.+(USQ-AS0)/(ENN*TT*RR*(GAMMAS(2)+l.n) 

193 PP = P( IF l/APP ( 2 ) 

ITROT = I TROT-1 
GO TO 331 

899 AKT =ENN«TT/(PP*USQ**.5) 

PCPLT = £ LOG ( APP ( 2 ) > 

IF (NFZ.EC.2 ) EQL * SEQL 

900 ISV =C 

AE AT ( MPT ) = ENN*TTT{NPT)/(PP*USQ**.5*AWT) 

IF(TT.EC.O.l GO TO 860 
I F ( AREA ) GO TO 800 
I F ( IPP.LT.NPP) GO TC 859 
768 IF(NSUB.LE.O.AND.NSUP.EQ.O) GO TO 860 
AREA = .TRUE. 

POP ESTIMATES FOR AREA RATIOS 

800 I F ( ITNUM.NE.O) GO TO 810 
DLNP = 1. 

ITNUM = 1 

ARAT 10 =5 SUB AR ( I SUB ) 

IF(NSUB.LE.O) ARAT I 0=SUPAR { I SUP) 

IFtECL. OR.NFZ.LT. 3) GO TO 798 
IF(ARATIO.GT.AEAT(NFZ)) GO TC 798 
WRITE(6,884) 

GC TO 834 

758 ELN = ALCG ( ARATIO ) 

IF (NSUR.LE.O ) GQ TO 799 

APPL = PCPLT/( SUBAR( I SUB ) +! ( 1C. 587*ELN**2 + 9 . 454 ) *ELM 
IF( ARATIO.LT. 1.09) APPL = » 9* APPL 
I F ( ARATIO. GT. 10. ) APPL = A PPL/ ARAT 1 0 
GO TO 859 

799 IF (NFZ • EG. IPP ) ISUPSV = ISUP 

IF ( SUPARt ISUP ).LT.2. > GO TO 805 

I F C ISUP. GT.l. AND. SUPAR( I SUP- 1 ) . GE . 2. ) GC TO 802 
APPL = GAMMAS(2)+ELN*1.4 
GO TO 859 

805 APPL = SORT ( ELN* ( 1.535+3.2 94 *ELN) ) + PCPLT 
GO TO 859 


ROCK 119 
ROCK 120 
ROCK 121 
ROCK 122 
ROCK 123 
ROCK 124 
ROCK 125 
ROCK 126 
ROCK 127 
ROCK 128 
ROCK 129 
ROCK 130 
ROCK 131 
ROCK 132 
ROCK 133 
ROCK 134 
ROCK 135 
ROCK 136 
ROCK 137 
ROCK 138 
ROCK 139 
ROCK 140 
ROCK 141 
ROCK 142 
ROCK 143 
ROCK 144 
ROCK 145 
ROCK 146 
ROCK 147 
ROCK 148 
ROCK 149 
ROCK 150 
ROCK 151 
ROCK 152 
ROCK 153 
ROCK 154 
ROCK 155 
ROCK 156 
ROCK 157 
ROCK 158 
ROCK 159 
ROCK 160 
ROCK 161 
ROCK 162 
ROCK 163 
ROCK 164 
ROCK 165 
ROCK 166 
ROCK 167 
ROCK 168 
ROCK 169 
ROCK 170 
ROCK 171 
ROCK 172 
ROCK 173 
ROCK 174 
ROCK 175 
ROCK 176 
ROCK 177 
ROCK 178 
ROCK 179 
ROCK 180 
ROCK 181 
ROCK 182 
ROCK 183 
ROCK 184 
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c 




ROCK 

185 

c 


TEST FDR CONVERGENCE ON AREA RATIO. 


ROCK 

186 

c 




ROCK 

187 


810 

CHECK = .00004 


ROCK 

188 



IF { IDEBUG.LE.O.OR.NPT.LT. IDEBUG) GO TO 

809 

ROCK 

189 



WRITE<6fl811 ) ITNUM, ARATIO, AEAT (NPT) , APP(NPT) , DLNP 

ROCK 

190 


1811 

FORMAT <6H0ITER=,I2,5X,15HASSIGNED AE/AT 

= ,F15.8,5X,6HAE/AT*,F15.8,.R0CK 

191 


15X»5FPC/F=»F15.8»5X,13H DELTA LN PCP=,F15 

.8) 

ROCK 

192 


809 

IF(ABS(AEAT(NPT)“ ARATIO). /ARATIO .LE. 

CHECK) GO TO 

830 ROCK 

193 



DELTAE = ( AEAT(NPT J-ARAT 10 ) / ARAT 10 


ROCK 

194 



IF(ABS(DLNP).LT.. 00004) GO TO 830 


ROCK 

195 



AE ATL= ALOG ( AEAT (NPT ) ) 


ROCK 

196 


811 

ITNUM = ITNUM+1 


ROCK 

197 



I F ( ITNUM. GT. 10) GO TO 840 


ROCK 

198 

c 




ROCK 

199 

c 


IN PROVED PCP ESTIMATES 


ROCK 

200 

c 




ROCK 

201 



ASC - GAFMAS(NPT)*ENN*RR*TT 


ROCK 

202 



DLNPE = GAMMAS(NPT)*USQ/(USQ-ASQ) 


ROCK 

203 


802 

DLNP = DLNPE*ELN-DLNPE* AEATL 


ROCK 

204 



APPL = AFPL-^DLNP 


ROCK 

205 



I F ( ITNUM. EG. 1 ) GO TO 859 


ROCK 

206 



APP(NPT) = EXP ( APPL ) 


ROCK 

207 



PP = P( IP ) /APP(NPT) 


ROCK 

208 



GO TO 331 


ROCK 

209 

c 




ROCK 

210 


830 

ITNUM = 0 


ROCK 

211 



AEAT (NPT ) = ARATIO 


ROCK 

212 



IF(NSUB.LE.O) GO TO 834 


ROCK 

213 



ISUB = ISUB+1 


ROCK 

214 



IF ( ISUB.LE.NSUB ) GO TO 800 


ROCK 

215 



ISUB * 1 


ROCK 

216 



NSUB = -NSUB 


ROCK 

217 



I F < ISUP.LE.NSUP) GO TO 800 


ROCK 

218 



GO TO 835 


ROCK 

219 


834 

ISUP 5= ISUP + 1 


ROCK 

220 



ITNUM = C 


ROCK 

221 



IF ( ISUP.LE.NSUP) GO TO 800 


ROCK 

222 



ISUP * ISUPSV 


ROCK 

223 


835 

AREA * .FALSE. 


ROCK 

224 



GO TO 860 


ROCK 

225 


840 

WRIT£(6*E41) ARATIO 


ROCK 

226 


841 

FCRMAT( 34H0DID NOT CONVERGE FOR AREA RATIO =,F10.5) 

ROCK 

227 



GO TO 830 


ROCK 

228 

c 




ROCK 

229 

c 


TEST FOR OUTPUT — END OF PC P , SUBAR , AND 

SUPAR SCHEDULES 

OR NPT= 13.R0CK 

230 

c 




ROCK 

231 


859 

ISV = NPT 


ROCK 

232 



IF(NPT.NE. 13) GO TO 870 


ROCK 

233 


860 

IF(EOL) GO TO 861 


ROCK 

234 



IFCNFZ.GT.l) GO TO 861 


ROCK 

235 



CPR(NFZ) = CPRF 


ROCK 

236 



GAMMAS ( NF Z ) = CPRF/l CPRF-1. /WM( NFZ ) ) 


ROCK 

237 

c 




ROCK 

238 


861 

CALL RKTOUT 


ROCK 

239 

c 




ROCK 

240 



IF (TT.EO.O.) ISV * 0 


ROCK 

241 

c 




ROCK 

242 



RETURN 


ROCK 

243 

c 




ROCK 

244 



ENTRY R0CKT1 


ROCK 

245 

c 




ROCK 

246 



DLNP * 1. 


ROCK 

247 



IF ( .NOT.EGL.ANO.TT.EQ.O.1 WRITE (6. 862) 


ROCK 

248 
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862 FORMAT1105HOCALCULATIONS WERE STOPPED BECAUSE NEXT POINT IS MORE TROCK 
l'HAN 50 CEG BELOW TEMP RANGE OF A CONDENSED SPECIES) 

IF (ISV.EQ.O) GO TO 990 
IF! IDEBUG.GT.13) IDEBUG = IDEBUG-13 
IF(EQL) WRITE!6,865) 

865 FORMAT ( 1HI ) 

NPT = 2 

SET INDICES AND ESTIMATES FOR NEXT POINT. 

870 NPT = NPT i 1 

IF( .NOT.ECL.AND. ( I SV.NE . 1 . OR . SEQL ) ) GO TO 880 
I F { ISV.EQ. 1) ISV = -1 
CALL SAVE 
880 IPP * IPP+1 

IFINPT.EC.2) GO TO 331 
IF < AREA) GO TO 885 
APP(NPT) = PCP < I PP-2 ) 

IF(EQL) GO TO 886 

IFIAPP(NPT).GE.APPINFZ) ); GO TO 886 
WR I TE ( 6 ,8 84 ) 

88 A FORMAT!//, IX, HAHSUPEftSONIC PRESSURE RATIOS MUST BE IN ASCE 

1RCER POINTS OUT OF ORDER WERE OMITTED FROM FROZEN CALCUL AT I ONS ) ROCK 
GO TO 880 

885 APPINPT) = EXP(APPL) 

886 PP = PI I P ) /APPINPT ) 

GO TO 331 


END OF PCP, SUBARU AND SUPAR SCHEDULES. 


990 


IFINSUB.LT. 0) NSUB=-NSUB 
IF I .NOT.FROZ.OR..NOT.EQL) 

SET UP FCR FROZEN; 


GO TO 997 


EQL - .FALSE. 

CALL SAVE 
TT = TTTINFZ) 

IPP = NFZ 

IFINFZ.EC.NPT ) GO TO 860 

NPT = NFZ 

ENN * l./WMINFZ) 

IFINFZ.EC.l) GO TO 334 
NSUE * — N5UB 

<IF! APPINFZ ).GE.APP<2)> GO TO 994 
WR IT E I 6 93 ) 

993 FORMAT I // , 28X , 77HFREEZ I NG IS NOT ALLOWED AT A SUBSONIC POINT 1 , 
1 ZEN CALCULATIONS WERE OMITTED) 

GO TO 991 

994 IFINFZ.LT. NPP) GO TO 870 
GO TO 788 

997 NPT = 1 

ARE THERE MORE ASSIGNED, 

1) CHAMEER PRESSURESIIP = NP) 

2) CHAMEER TEMPER ATURE S I I T = NT) 

3) 0/F VALUES! IOF = NOF ) 


IF ( I P.EQ.NP. AND. IT.EC.NT.AND. IOF .EQ .NOF ) 
WRITEI6,865) 

IFISECL) CALL SAVE 
TT = TTT(l) 

IF! IP.LT.NP) GO TO 998 
IF! IT.GE.NT > GO TO 599 
IT = IT+1 


GO TO 1COO 


)RE 

TROCK 

249 


ROCK 

250 


ROCK 

251 


ROCK 

252 


ROCK 

253 


ROCK 

254 


ROCK 

255 


ROCK 

256 


ROCK 

257 


ROCK 

258 


ROCK 

259 


ROCK 

260 


ROCK 

261 


ROCK 

262 


ROCK 

263 


ROCK 

264 


ROCK 

265 


ROCK 

266 


ROCK 

267 


ROCK 

268 


ROCK 

269 

NG 

OROCK 

270 

ONS ) ROCK 

271 


ROCK 

272 


ROCK 

273 


ROCK 

274 


ROCK 

275 


ROCK 

276 


ROCK 

277 


ROCK 

278 


ROCK 

279 


ROCK 

280 


ROCK 

281 


ROCK 

282 


ROCK 

283 


ROCK 

284 


ROCK 

285 


ROCK 

286 


ROCK 

287 


ROCK 

288 


ROCK 

289 


ROCK 

290 


ROCK 

291 


ROCK- 

292 


ROCK 

293 


ROCK 

294 

FROROCK 

295 


ROCK 

296 


ROCK 

297 


ROCK 

298 


ROCK 

299 


ROCK 

300 


ROCK 

301 


ROCK 

302 


ROCK 

303 


ROCK 

304 


ROCK 

305 


ROCK 

306 


ROCK 

307 


ROCK 

308 


ROCK 

309 


ROCK 

310 


ROCK 

311 


ROCK 

312 


ROCK 

313 
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TT = T( IT ) 

GO TO 322 

999 IF MCF.&E.NOF) GO TO 1000 
GO TO 321 
1000 RETURN 1 
END 


ROCK 314 
ROCK 315 
ROCK 316 
ROCK 317 
ROCK 318 
ROCK 319 


SUBROUTINE RKTOUT 


ROCKET PERFORMANCE PARAMETERS 


THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR 
IBM 360 MACHINES ONLY 

DOUBLE PRECISION HSUMi SSUM , CPR , OLVTP , DLVPT , GAMMAS 
DOUBLE PRECISION COEF * S , EN , ENLN ,H0 ,DELN 

LOGICAL EQL , FROZ , TP ,HP , SP » SHOCK , ARE A 

DIMENSION NV( 13) ,Z(10,4) 

COMMON /FOINTS/HSUM! 13) ,SSUM(13 ) ,CPR ( 13 ) ,DL VTP ( 13) ♦DLVPTL13), 

1 GAMMAS! 13),Pf 26),T(52), V< 13 PPPt 13) t WM( 13 ) ,SONVELl 13) »TTT ( 13 ) » 

2 VLN< 13 ) » TCTN ! 13) 

COMMON /SPECES/C0EFI2 ,7, 100) ,S ( 100 ) ,H0 ( 100 ) ,DELN(100 ), DUMMY! 100 ) 
1 EN! 100,13), ENLN (100), A (10, 100), SUB! 100, 3) , I USE! 100) , TEMP (50, 2) 
COMMON /M I SC/ENN » SUMN » TT ,$0, ATOM ( 3 » 101 ) ,LLMT(10) ,80(10) ,B0P(10,2 

1 TM,TLOW,TMID*THIGH,PP,CPSUM ,0F , EQRAT, FPCT , R, RR , HSUBO, AM I 2) , 

2 HPP!2) ,RH(2K VMIN(2)„VPLS(2) ,WP!2),DATA(22),NAM*(15,5), 

3 ANUM(15,5) ,PECWT( 15),ENTH(15) , F AZ ( 15 ). , RTEMP ( 15) ,FCX ( 15 ) , DENS! 1 5 

4 RHOP ,RMW! 1 5 ) V TLN 4 CR ,OXF ( 1 5 ) ,ENNL , TRACE , LLMTS ( 10 ) , SBOP( 10, 2 ) 
CCMMON /INDX/IDE8UG*C0NVGt, TP ,HP , SP , I S V , NPP , MOLE S ,NP , NT, NPT , NLM , 

1 NS,KMAT, IMATi IQ 1 , IOF ,N0F ,NOMI T , IP ,NEWR ,NSUB , NSUP,RK T , DETN, SHOCK 

2 IONS,NC,NSERT, JSOL, JL I Q ,KASE , NRE AC , I C , JS1 ,VOL, I T ,C ALCH, NLS , LOGV 

3 I SUP , I SL B , I TNUM ,ITM, INCDFZ, INCDEQ , CPRF , I PP , SEQL , PC PLT 
COMMON /PERF/PCP(22),VM0C(13),SPIM( 13) ,VACI (13) ,SUBAR(13), 

1 SUPAR( 12 ).,APP( 13) ,AEAT( 13) , CSTR , EQL ,FROZ , SSO , ARE A , A WT ,NFZ , 

2 APPL,ARATIO,€LN 

COMMON /OUPT/FMT(30) ,FP(4) ,FT!4) ,FH ( 4 ) , FS ( 4) , FM ( 4) , F V (4 ) , FD ( 4 ) , 

1 FC(4 ),FG(4),FB,FMT13,F1,F2,F3,F4,F5,FL(4) ,FMTI9,FA1,FA2, 

2 FR1»FC1,FN(4) » FR ( 4 ) ,FA(4) , F 1 1 4 ) ,FMT9X,F0 

ECU I VALENCE ! V,NV) , (Z,HO) 

DAT A EX IT/4HEX IT / 

IF(.NOT.EQL) GO TO 636 
W-R ITE! 6,37 ) 

37 FORMAT( 1H1/24X, 84HTHE0RETICAL ROCKET PERFORMANCE ASSUMING EQUILI 
HUM COMPOSITION DURING EXPANSION 

GC TC 39 

636 WRIT£(6,38) 

38 FORMAT! 1H1»26X,7 8HTHE0RET I CAL ROCKET PERFORMANCE ASSUMING FROZEN 
lOMPOS'IT IQN DURING EXPANSION 

IF(NFZ.GT.l) WRITE (6,637) NFZ 

637 FORMAT! 5eX,llHAFTER POINT, 12) 

39 IF(TTT( l).EQ.T(IT) ) WRITE(6,737) 


ROUT 

1 

ROUT 

2 

ROUT 

3 

ROUT 

4 

ROUT 

5 

ROUT 

6 

ROUT 

7 

ROUT 

8 

ROUT 

9 

ROUT 

10 

ROUT 

11 

ROUT 

12 

ROUT 

13 

ROUT 

14 

ROUT 

15 

ROUT 

16 

ROUT 

17 

, ROUT 

18 

ROUT 

19 

) ,ROUT 

20 

ROUT 

21 

ROUT 

22 

) , ROUT 

23 

ROUT 

24 

ROUT 

25 

, ROUT 

26 

, ROUT 

27 

ROUT 

28 

ROUT 

29 

ROUT 

30 

ROUT 

31 

ROUT 

32 

ROUT 

33 

ROUT 

34 

ROUT 

35 

ROUT 

36 

ROUT 

37 

ROUT 

38 

ROUT 

39 

ROUT 

40 

ROUT 

41 

BRROUT 

42 

ROUT 

43 

ROUT 

44 

ROUT 

45 

1 CROUT 

46 

ROUT 

47 

ROUT 

48 

ROUT 

49 

ROUT 

50 
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737 FORMAT <£2X,28HAT AN ASSIGNED TEMPERATURE 
TEM = PPP( I ) * 14, 696CC 6 
WRITE (6,40) TEM 

40 FORMAT ( 5H0PC = ,F8.1,5H PSIA) 

CALL OUT 1 
NEX x - NPT - 2 
CO 862 I = 1 » NEX 
862 VI I) = EXIT 

WRITE(6*«8) (VII) i I = 1*NEX); 

48 FORMAT ( 1H0 » 16X, 16HCHAMBER THROAT ,11(5X,A4)) 

PRESSURE RATIOS 

FMT ( 4 ) = FMT ( 6 ) 

CALL VARFMT (APP,NPT) 

WRITE (6, FMT) FR W FB , FB , FB , ( APP ( J ) , J=1 , NPT ) 

CALL OUT 2 

AGV = 9.80665 
DO 202 K= 2 ,NPT 

SPIM(K) =; (2.*RR*(HSUM< 1 )-HSUM < K )):)**. 5/AGV 

AW (A/W) IN UNITS OF SEC/ATM 

AW = RR*TTTIM)/(PPP(K)*WM(K)*SPIM<K)*AGV**2) 

I F ( K ,NE • 2 ) GO TO 200 
CSTR = 32.174*PPP(1)*AW 
AE AT ( 2 ) = 1. 

200 VACI (K)nSP IM(K )+PPP(K)*AW 

IF (S0NVEL(K),NE,O, ) VMOCI K ) =SP I M< K ) *AGV/SONVEL ( K ) 
NV(K)= CSTR * .5 
202 CONTINUE 

MIA CM NUMBER 

VM0C(1)*0. 

IF(GAMMAS(2 J.EQ.O. ) VMOC(2)=C. 

FMT ( 7 ) = F 3 

WRIT El 6, FMT) ( FN( I ) , 1 = 1 ,.4 ) r ( VMOC ( J ) , J = 1 ,NPT) 

WRITE (6,208) 

208 FORMAT ( 1H ) 

AREA RATIO 

FMT ( 4 ) = FMT9X 

CALL VARFMT (AEAT^NPT) 

FMT ( 5 ) = FB 

WRITE(6».FMT) F A 1 , FA2 j FB ,.FB , ( AE AT ( J ) , J = 2 ,NPT ) 


C* 


FM T ( 5 ) =? FMT13 
FMT ( 6 ) = FMT 19 
FMT ( 7 ) = FB 

WRITE (6, FMT ) ( FR * I ) , I = I „4 ) , (NV ( J) , J=2 ,NPT ) 

CF - THRUST COEFICIENT 

FMT ( 6 ) = FMT ( 8 ) 

FMT ( 7 ) = F 3 
DO 212 1=2, NPT 

212 V( I ). = 32.174* SPIM( I )/CSTR 

WRITE(6»FMT) FC 1 , FB ,FB , FB , ( VI J ) ,J = 2,NPT) 

C 

C VACUUM IMPULSE 


ROUT 51 
ROUT 52 
ROUT 53 
ROUT 54 
ROUT 55 
ROUT 56 
ROUT 57 
ROUT 58 
ROUT 59 
ROUT 60 
ROUT 61 
ROUT 62 
ROUT 63 
ROUT 64 
ROUT 65 
ROUT 66 
ROUT 67 
ROUT 68 
ROUT 69 
ROUT 70 
ROUT 71 
ROUT 72 
ROUT 73 
ROUT 74 
ROUT 75 
ROUT 76 
ROUT 77 
ROUT 78 
ROUT 79 
ROUT 8C 
ROUT 81 
ROUT 82 
ROUT 83 
ROUT 84 
ROUT 85 
ROUT 86 
ROUT 87 
ROUT 88 
ROUT 89 
ROUT 90 
ROUT 91 
ROUT 92 
ROUT 93 
ROUT 94 
ROUT 95 
ROUT 96 
ROUT 97 
ROUT 98 
ROUT 99 
ROUT 100 
ROUT 101 
ROUT 102 
ROUT 103 
ROUT 104 
ROUT 105 
ROUT 106 
ROUT 107 
ROUT 108 
ROUT 109 
ROUT 110 
ROUT 111 
ROUT 112 
ROUT 113 
ROUT 114 
ROUT 115 


\ 
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FMT ( 5 ) = FMT13 
FMT ( 7 ) = FI 

WRITE(6*FMT) ( F A (I ) , 1 = 1 „4 ) * ( VAC I < J ) , J=2 , NPT ) 

C 

C SPECIFIC IMPULSE 
C 

WRITE<6,FMT ) (FII I IV1-1»4) »(SPIM( J) *J-2,NPT) 

WRITE (6,208) 

FMT(4) = F0 
FMT ( 5 ) = FMT 13 
FMT ( 7 ) = F5 
IF(EOL) GO TO 312 
WR ITE 1 6*310 ) 

310 FORMAT! 15H0M0LE FRACTIONS //) 

C 

C MOLE FRACTIONS - FROZEN 
C 

TRA = 5.E-6 

IFURACE.NE.O.) TRA=TR ACE 
L*INE 2= 0 
DC 430 K = 1 , N S 

VUINE + 1) * EN(K,NFZ >/TOTN(NFZ) 

IF(V(LINE-U).LT.TRA) GO TO 424 
LINE 4= LINE41 
Z ( L INE , 1 ) = SUB ( K , 1 ) 

Z (L INE , 2 ) = SUB ( K < 2 ) 

Z (LINE, 3) =; SUB ( K » 3 ) 

Z I L INE » 4 } = V(LINE) 

42 A IF (L1NE.NE.4.AND.K.NE.NS): GO TO 430 

IF (LiNE.EQ.O) GO TO 312 

WRITE ( 6,426) ( Z ( LN*1 )»Z(LN,2)»Z(LN»3) ,Z(LN,4) ,LN=1,LINE) 
426 FORMAT ( 1H , 4 ( 3A4 i F9 . 5 , 7X ) ) 

LINE = o 
430 CONTINUE 
312 CALL 0UT2 
1000 RETURN 
ENC 


ROUT 116 
ROUT 117 
ROUT 118 
ROUT 119 
ROUT 120 
ROUT 121 
ROUT 122 
ROUT 123 
ROUT 124 
ROUT 125 
ROUT 126 
ROUT 127 
ROUT 128 
ROUT 129 
ROUT 130 
ROUT 131 
ROUT 132 
ROUT 133 
ROUT 134 
ROUT 135 
ROUT 136 
ROUT 137 
ROUT 138 
ROUT 139 
ROUT 140 
ROUT 141 
ROUT 142 
ROUT 143 
ROUT 144 
ROUT 145 
ROUT 146 
ROUT 147 
ROUT 148 
ROUT 149 
ROUT 150 
ROUT 151 
ROUT 152 
ROUT 153 


C 

c 

t 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE FROZEN FROZ 

FROZ 

f FROZEN COMPOSITION EXPANSION ONLY) FROZ 

FROZ 

THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR FROZ 

IBM 360 MACHINES ONLY FROZ 

FROZ 

DOUBLE PRECISION HSUM j SSUM , CPR , DLVTP ,DLVPT , GAMMAS FROZ 

DOUBLE PRECISION COEF , S , EN , ENLN , HO ,DELN FROZ 

DOUBLE PRECISION SUMS,SUMH,SS FROZ 

FROZ 

LOGICAL ECL,FROZ,CONVG,SP,HP,VOL FROZ 

FROZ 

COMMON /POINTS/HSUM( 13) , SSUM (13) ,CPR(13) , DLVTP (13) ,DLVPT(13) , FROZ 

1 GAMMAS (131»P(26)»T(52)»V< 13 ) , PPP( 13 ) , WM ( 1 3 ) ,SONVEL( 13) ,TTT( 13) , FROZ 

2 VLM( 13) ,TOTN( 13) FROZ 

COMMON /SPECES/COEF (2,7 00 ) ,S ( 100) ,H0 ( 100 ) , DELN ( ICO ) , DUMMY ( 100 ) « FROZ 

1 EN ( ICO ,13), ENLN ( 100 ) , A ; 3 , ICO ) , SUB ( 100 , 3 ) , IUSE ( 100 ) , TEMP ( 50 , 2 ) FROZ 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
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COMMON /MI SC/ENN, SUMN »TT »,SO, ATOM ( 3 , 101 ),LLMT(10)»B0<10), 

B0P( 10,2 ) 

, FROZ 

19 

*1 TM» TLOW iTMIDiTHIGHf.PPfCPSUM*OF f EQRATtFPCT »R»RR,H$UBO»AM( 2 ) ♦ 


FROZ 

20 

2 MPP I 2 1 ».PH ( 2 ) VMIN(2),.VPLS(2),WP(2),DATA(22>,NAME(15,5) 

, 


FROZ 

21 

3 ANUM<15,5),PECWT(15)*ENTH(’15),FAZ(15) ,RTEMP ( 15 ) ,FOX ( 15 ) 

,OENSt 15 ) 

, FROZ 

22 

4 RHOP-*RMW( 15 ) »TLN»CR»0XF (15) ,E*NNL , TRACE , LLMTS ( 10 ) * SBOP( 10, 2 ) 


FROZ 

23 

COMMON / INDX / I DEBUG .CONVG, TP »HP , SP , I SV ,NPP , MOLE S ,NP , NT, NPT , NLM , 

FROZ 

24 

1 NStKMAT t IMATfclQlt lOFtNOFfNQPITy IP , NEWR , NSUB , NSUP ,RKT , DETN, SHOCK , 

FROZ 

25 

2 ICNS,NC,NSERT,JSOL,JLIQ^KASE»NREAC, IC,JS1,V0L, ITt’CALCH, 

NLS, 

LOGV » 

FROZ 

26 

3 iSUPt I SUB, ITNUM, ITM, INCDFZ-, INCDEQiCPRF , 1 PP ♦ SEOL ,PCPLT 



FROZ 

27 

COMMON /PERF/PCP(22).VM0C(13),SPIM(13) , VAC I (13) * SUB AR ( 13 ).i» 


FROZ 

28 

1 SUPAR( 13) »APP( 13) ,AEAT( 13) ,CSTR ,EQL , FROZ , SSO , ARE A , AWT, NFZ, 


FROZ 

29 

2 A PPL;, Aft AT 10, ELN 



FROZ 

30 

COMMON /0UPT/FMT(30),FP( 4) , FT( 4 ) »FH(4)»FS(4) » FM ( 4 ) , FV (4 ) 

, FD ( 4) , 

FROZ 

31 

1 FC(4),FG(4)» FBt FMT13» FI f.F2* F3 , F4‘» F5 , FL ( 4 ) , FMT I 9 ,FA1 , FA2 

f 


FROZ 

32 

2 FR1:,FC1,FN(4) ,FR(4) ,FA { 4 ).,F 1 1 4 ) ,FMT9X,F0 



FROZ 

33 




FROZ 

34 

CONVG = .FALSE. 



FROZ 

35 

TIN = ALOG(TT) 



FROZ 

36 

CO 51 ITER*li 8 



FROZ 

37 

SUMS * 0. 



FROZ 

38 

SUMH * 0. 



FROZ 

39 

J51 = ITM 



FROZ 

40 

NNN = NPT 



FROZ 

41 

NPT * NFZ 



FROZ 

42 

CALL CPHS 



FROZ 

43 

CC - CPSUM 



FROZ 

44 

55 NPT = NNN 



FROZ 

45 

CO 60 J=ITM,NS 



FROZ 

46 

*F (EN(JtNFZ).EQ.O.) GO TO 60 



FROZ 

47 

PMN = PP*WM(NFZ)*EN( JiNFZ) 



FROZ 

48 

S3 = SIJ) 



FROZ 

49 

>IF(IUSE(J). .EQ.O) SS=fSS-ALOG(PMN) 



FROZ 

50 

SUMS = SUM S + SS*EN ( J .NFZ ) 



FROZ 

51 

IF (CONVG) SUMH=SUMH*HO( J)*EN( J,NFZ) 



FROZ 

52 

6C CONTINUE 



FROZ 

53 

IF (CONVG), C-0 TO 81 



FROZ 

54 

DLNT=(SU*S-SO)/CC 



FROZ 

55 

TLN=TLN-DLNT 



FROZ 

56 

IFIDLNT.LT. 0. ) OLNT=-DLNT 



FROZ 

57 

IF (DLNT.LT.0.5E-4) CONVG*. TRUE. 



FROZ 

58 

TT * EXP(TLN) 



FROZ 

59 

51 CONTINUE 



FROZ 

60 

W-R IT E ( 6 ,70 ) 



FROZ 

61 

70 FORMAT ( 40HOPROZEN DID NOT CONVERGE IN 8 ITERATIONS) 



FROZ 

62 

GO TO 903 



FROZ 

63 

81 TTT ( NPT ) = TT 



FROZ 

64 

SSUM( NPT ) * SUMS 



FROZ 

65 

HSUM(NPT)= TT*SUMH 



FROZ 

66 

GAMMAS (NPT) * CPSUM/ t CPSUM-1 . /WM ( NF Z ) ) 



FROZ 

67 

VLM(NPT) = RR*TT/(WM(NFZ)*101.325*PP) 



FROZ 

68 

WM (NPT ) =? WM(NFZ) 



FROZ 

69 




FROZ 

70 

DLVPT I NPT ) =? -1. 



FROZ 

71 

DLVTP (NPT 1 = 1. 



FROZ 

72 

TOTN(NPT) = TOTN(NFZ) 



FROZ 

73 

PPP(NPT) = PP 



FROZ 

74 

CPR(NPT) = CPSUM 



FROZ 

75 

IF ( TT. LI . ( TLOW- 150. ) ) GO TO 903 



FROZ 

76 

IF ( NC.EQ.O ) GO TO 1000 



FROZ 

77 

INC *0 * 



FROZ 

78 

DO 901 I = I TM4NS 



FROZ 

79 

IF ( IUSE ( I 1 .EOiO.OR. lUSEt I ) .EQ.-lOOOO) GO TO 901 



FROZ 

80 

INC = inc+:i 



FROZ 

81 

IF ( EN( I * NFZ ) .EQ.O. ) GO TO 901 



FROZ 

82 

IF ( TT. LT. (TEMPI INC, l)-50.) .OR.TT.GT. (TEMP( INC, 2) +50. ) )G0 TO 

903 

FROZ 

83 


89 
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901 

CONTINUE 

FROZ 

84 


GO TO 1000 

FROZ 

85 

90 3 

TT = 0. 

FROZ 

86 


NPT= NPT- 1 

FROZ 

87 

1COO 

RETURN 

FROZ 

88 


END 

FROZ 

89 


c 

SUBROUTINE SHCK l*) SHCK 

C SHCK 

DOUBLE PRECISION G,X,GG SHCK 

C SHCK 

C THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR SHCK! 

C IBM 360 MACHINES ONLY SHCK 

C SHCK 

C DOUBLE PRECISION HSUM , S SUM ,CPR , DLVTP , DLVPT , GAMMAS SHCK 

C DOUBLE PRECISION COEF , S , EN , ENLN , HO , DELN SHCK 

C SHCK 

REAL MACHl*MliMACH2 ,M2, M12,M5»M25»MACH0 , MU12RT » M2N 1 SHCK 

LOGICAL INCDEQ, I NCDF Z * REFL EQ ,REFLFZ ,TP , FROZ ,EQL , SEC L , MOLES, SHCK 

1 SHOCK, SREFL,REFL,CALCH SHCK 

C SHCK 

DIMENSION NUM{ 15,5) ,FV2<4) »FLV( A) ,W(10) SHCK 

DIMENSION M2MK13) , T2T 1 < 13 ) ,U1U2 ( 13 ) ,RRHO (13 > ,SG(78) ,U5(13) SHCK 

DIMENSION U 1 ( 13),MACH1I 13) » UTWO ( 13 ) ,Z ( 10 » 3 ) »U2STAR(13) SHCK! 

C SHCK 

COMMON /PO I NTS /HSUM ( 13) , SSUM( 13) ,CPR(13) ,DLVTP( 13) ,CLVPT( 13) , SHCK 

1 GAMMAS { 131,P(26)*T(52) , V (13 ) , PPP ( 13 ) , WM (1 3 ) , SONVFL ( 1 3 ) , TTT (13 ) , SHCK 

2 VLM( 13 ) ,TOTN( 13 ) SHCK 

COMMON /SPECES/COEF (2*7,100) , S < 100 ) ,H0 ( 100 ) , DELN (100) , DUMMY ( 100) , SHCK 

1 EN( 100,13) ,6NLN( 100) »A ( 10,100) , SUB (100,3) , I USE (100) , TEMP I 50, 2) SHCK* 
COMMON /MISC/ENN,SUMN,TT,SO, ATOM (3, 101 ) ,LLMT(10) ,R0( 10) , BOP ( 10 , 2 ) , SHCK 

1 TM,TLOW,TMlDi TH IGH >P P , CPSUM ,0F , EQR AT , FPCT , R ,RR , HSUBO , AM ( 2 ) , SHCK 

2 HPP ( 2 ) ,PH ( 2 ) » VMIN(2) ,VPLS(2).,WP(2) ,DATA(22) , NAME! 15,5) , SHCK 

3 ANUM(15,51,PECWT<15),ENTH(15) ,FAZU5) ,RTEMP(15) , FOX ( 15 ) , DENS ( 1 5 ) , SHCK 

A RHOP,RMW( 15 ) ^TLN*CR»OXF( 15) ,ENNL, TRACE , LLMTS ( 10 ) , SB0P( 10, 2 ) SHCK 

COMMON /DOUBLE/ Gf 20,21);, X(20) SHCK 

COMMON /INDX/IDEBUG,CONVG,TP,HP, SP , I SV , NPP , MOLE S ,NP , NT , NPT , NLM , SHCK 

1 NS, KM AT, IMATUQUIOF»NOF,NOMIT, IP ,NEWR ,NSUB , NSUP, RKT ,DETN, SHOCK , SHCK 

2 IONS,NC,NSERT, JSOL , JL I Q ,K ASE ,NRE AC , I C , JS1 ,VOL, I r, C A LCH ,NLS , LOGV , SHCK 

3 T SUP , I SUB , I TNUM , ITM , I NCDFZ ». INCDEQ»CPRF » I PP , SEQL »PCPLT SHCK 

COMMON /PERF/PCP(22) ,VMOC( 13),SPTM( 13) ,VACI (13) , SUBARU 3)/, SHCK 

1 SUPAR( 13 ) ,APP( 13) ,AEAT( 13) ,C5TR ,EOL , FROZ , SSO , AREA , AWT ,NFZ , SHCK 

2 APPL,ARATIO,ELN SHCK 

COMMON /OUPT /FMT ( 30 ) , FP ( A ). , F T ( A ) ,FH ( A ) , F S ( A ) , FM ( A ) , F V ( A ) , FD ( 4 ) , SHCK 

1 FC(4) ,FG(A) »FB»-FMT13tFl*.F2»F3»F4'»F5»FL(4) ,FMTI9,FA1,FA2*. SHCK 

2 FRl ,FC1,FN(A) ,FR(A) ,FA(4),FI (A) ,FMT9X,F0 SHCK 

C SHCK 

EQUIVALENCE(M2M1 , AEAT) , < T2T1 ,SP IM) , ( U1U2, VAC I ,U2STAR ) , (UHSUBAR) SHCK 
EQUIVALENCE (SG,G(4,3)), (APP , RRHO ) , ( Z , HO ) t ( ANUM,NU M ) , ( U5 , UTWO) SHCK 

1 i (GG,X(A U, (MACH1,SUPAR) , ( M 1 , DATA ( 20 ) ) , ( CPR1 ,0 ATA ( 2 1 ) ) SHCK 

EQUIVALENCE ( REFL i I SUP ) , (NSK , I SUB ) SHCK 

C SHCK 

NAMELIST /SHKINP/U1,MACH1,GAMMA1 , INCDEQ, REFLEQ, I NCC F Z ,REFLFZ , A 1 SHCK 

DATA ONE/lHl/v FPP/4HP2/P/, FTT/4HT2/T/ SHCK 

2 FU1/3HUH /, FMM/4HM2/M/,. FRA /4HRH02 / , FRB/4H/RH0/ SHCK 

3 FMA/4HMACH/, FMB/4H NO./, I ZERO/2HOO/ , FU2/3HU2 , / SHCK 

DATA TWO/ IH2/i FP5/4HP5/P/, FT5/4HT5/T/ SHCK 

2 FU5/3FU5 ,/i FM5/4HM5/M/.FR5/4HRH05/ SHCK 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IB 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 
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DATA FV2/4HV2(U,4H1-U2,4H)M/$,2HEC/ 

SHCK 

52 

1 

, FUV/4H05+V, 4H2,M/,3HSEC,1H / 

SHCK 

53 



SHCK 

54 


NFZ = 1 

SHCK 

55 


CALCH = .FALSE. 

SHCK 

56 


IFITRACE.EG.O. ) TRACE=5.E-9 

SHCK 

57 


I0F = 0 

SHCK 

58 


TP= .'TRUE • 

SHCK 

59 


CPR1 = 0. 

SHCK 

60 


DO 10 1=1,13 

SHCK 

61 


MACHKI ) = 0. 

SHCK 

62 


Ull I )*0. 

SHCK 

63 

10 

CONTINUE 

SHCK 

64 


GAMMA 1 = 0. 

SHCK 

65 


INCDEQ = .TRUE. 

SHCK 

66 


INCDFZ = .TRUE. 

SHCK 

67 


REFLEQ = .FALSE. 

SHCK 

68 


REFLFZ = .FALSE. 

SHCK 

69 


DO 18 N = 1 , NREAC 

SHCK 

70 


NAME (N, 5 ) = IZERO 

SHCK 

71 

18 

CONTINUE 

SHCK 

72 


SREFL = .FALSE. 

SHCK 

73 


READ ( 5 » SHK INP ) 

SHCK 

74 


VJRITE<6»SHKINP) 

SHCK 

75 


IF (REFLEO. OR .REFLFZ) SREPL= .TRUE. 

SHCK) 

76 


SEOL = INCDEQ 

SHCK 

77 


IFCT(l) .EQ.O. ) Til) =RTEMP M ) 

SHCK 

78 


DO 20 I = 1,13 

SHCK 

79 


IF (MACHKI). EQ. 0.0. AND. Ul(! ). EQ.O. 0) GO TO 21 

SHCK 

80 


NSK « I 

SHCK 

81 

20 

CONT INUE 

SHCK 

82 

21 

IOF = I OF +'l 

SHCK 

83 


OF = OXF(ICF) 

SHCK 

84 


CALL NEWOF 

SHCK 

85 



SHCK 

86 


INCDEQ = SEQL 

SHCK 

87 

17 

REFL = .FALSE. 

SHCK 

88 


IT2 = 2 

SHCK 

89 


I T 1 = 1 

SHCK 

90 


PP = P( 1 ) 

SHCK 

91 


TT = T( 1) 

SHCK 

92 



SHCK 

93 

FROZEN 

SHCK 

94 



SHCK 

95 

117 

DO 118 N = 1,NSK 

SHCK 

96 


DLVTP(N) = 1. 

SHCK 

97 


DLVPTtN) = -1. 

SHCK 

98 


DO 118 J = 1 , NS 

SHCK 

99 


EN(J,N) * 0.0 

SHCK 

100 

118 

CONTINUE 

SHCK 

101 



SHCK 

102 

19 

DO 35 NPT= 1 »NSK 

SHCK 

103 


PPP(NPT) = P(NPT) 

SHCK 

104 


TTT(NPT) = T(NPT) 

SHCK 

105 


IF(NPT.EQ.l) GO TO 14 

SHCK 

106 


IF(PPP(NPT I.EQ.O.) PPP(NPT)=PPP(NPT-1) 

SHCK 

107 


IF(TTT(NFTl.EQ.O.) TTT ( NPT ) =TTT (NPT-1 ) 

SHCK 

108 


SSUM(NPT) = SSUM(NPT-l) 

SHCK 

109 


HSUM(NPT) = HSUM(NPT-l) 

SHCK 

110 


IF(TTT(NPT).EQ.TT.AND.PPPf NPT).EQ.PP) GO TO 15 

SHCK 

111 

14 

PP = PPP(NPT) 

SHCK 

112 


TT = TTT (NPT ) 

SHCK 

113 


IF(TT.GE.TL0W/1,5) GO TO 814 

SHCK 

114 


WRITE(6„1I52) 

SHCK 

115 


GO TO moo 

SHCK 

116 


91 
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814 

CALL HCAIC 

SHCK 

117 


HSUM(NPT) = HSUBC 

SHCK 

118 

15 

IF(CPR1.NE.0.) GAMMA 1=CPR1/ (CPR1-1./M1) 

SHCK 

119 


A 1 = (RR*GAMMA1#TT/M1 )**«5 

SHCK 

120 

31 

IF (U1(NPT ) .EC.O. ) U1 ( NPT ). = A 1*MACH1 ( NP T ) 

SHCK 

121 


IF (MACHl(NPT).EQ.O.) MACHl(NPT) = U1(NPT)/A1 

SHCK 

122 


WM(NPT) = Ml 

SHCK 

123 


CPR(NPT) = CPR 1 

SHCK 

124 


GAMMAS ( NPT ) = GAMMA1 

SHCK 

125 


VLM(NPT) = RR*TT/(M1*101.325*PP) 

SHCK 

126 

35 

CONTINUE 

SHCK 

127 



SHCK 

128 

OUTPUT— 1ST CONDITION 

SHCK 

129 



SHCK 

130 


WRITE (6,861) 

SHCK 

131 

861 

FORMAT! 1H1»48X,3QHSHCCK WAVE PARAMETERS ASSUMING ) 

SHCK 

132 


IF( .NOT. INCCEQ) GO TO 44 

SHCK 

133 


WRITE (6,862) 

SHCK 

134 

86 2 

FORMAT (1H ,35X, 55HECUILIBRIUM COMPOSITION FOR INCIDENT 

SHOCKED COSHCK 

135 


1ND IT IONS //) 

SHCK 

136 


GO TO 45 

SHCK 

137 

44 

WRITE (6,863) 

SHCK 

138 

862 

FORMAT (1H ,37X, 50HFROZEN COMPOSITION FOR INCIDENT SHOCKED CONDITISHCK 

139 


IONS// ) 

SHCK 

140 

45 

EQL = .FALSE. 

SHCK 

141 


CALL OUT 1 

SHCK 

142 


WR I T E ( 6 , A 6 ) 

SHCK 

143 

46 

FORMAT (16H INITIAL GAS (1) ) 

SHCK 

144 


FMT ( 4 ) = FMT 1 3 

SHCK 

145 


FMT ( 5 ) =FB 

SHCK 

146 


FMT ( 7 ) =F A 

SHCK 

147 


WRITE (6, FMT) FMA*FMB,FB^FB»(MACH1( J),J=1,NPT) 

SHCK! 

148 


FMT ( 7 ) = F2 

SHCK 

149 


WRITE (6, FMT) FU1 » FL ( 3 ) , FL ( 4 ) , FB , < U1 ( J ) , J* 1 , NPT ) 

SHCK 

150 


CALL OUT? 

SHCK 

151 



SHCK 

152 


BEGIN CALCULATIONS FOR 2ND CONDITION 

SHCK 

153 



SHCK 

154 


IF(INCDEO) EQL* .TRUE • 

SHCK 

155 

47 

NPT = 1 

SHCK 

156 

48 

GAMMA 1 = GAMMAS! NPT ) 

SHCK 

157 


UU = Ul(NPT) 

SHCK 

158 


Ml = WM(NPT) 

SHCK 

159 


PI = PPP(NPT) 

SHCK 

160 


T1 = TTT(NPT) 

SHCK 

161 


HS = HSUM(NPT) 

SHCK 

162 


IF(REFL) UU=>U1U2(NPT) 

SHCK 

163 


MU12RT = M 1 *UU**2 / ( RR*T 1 ) 

SHCK 

164 


IF (REEL) GO TO 59 

SHCK 

165 


P21 = ( 2.*GAMMAl*MACHl(NPT)**2-GAMMAl+:i. )/( GAMMA 1-f 1 . ) 

SHCK 

166 


T21 = P21*(2./MACHi(NPT)**2+GAMMAl-l.)/(GAMMAl+l.) 

SHCK 

167 


IF ( ( T1*T21 ) .GT.2000. . AND. EQL) T21 = .7*T21 + 600. /T1 

SHCK 

168 


GO TO 61 

SHCK 

169 



SHCK 

170 


REFLECTED- -SUB SCRIPTS 2=>lf 5 = 2, P52 = P21 

SHCK 

171 



SHCK 

172 

59 

T21 = 2. 

SHCK 

173 


B2 = (-1.-MU12RT-T2D/2. 

SHCK 

174 


P21 = -B2fSQRT (B2**2-T21 ) 

SHCK 

175 

61 

P2 1L = ALOG ( P 2 1 ) 

SHCK 

176 


T21L = AL0G( T21 ) 

SHCK 

177 


DO 100 I 7 R = 1 , 8 

SHCK 

178 


IF ( IDERUG.GT.O.AND.NPT.GE. IDEBUG) WRITE(6,152) ITR # IT2 

,IT1,T21. SHCK 

179 


1IT2* IT1.F21 

SHCK 

180 


92 
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C 


152 FORMAT ( 1OH0 I TR NO.= 
•UI1»2H =,F9.4 > 

TT = T 2 1*T 1 
PP=P2 1*P 1 


*Il»7XtlHT*Il,2H/T»Il»2H = , F9.4 , 7X f 1HP, 1 1 , 2H/PSHCK 181 

SHCK 182 
SHCK 183 
SHCK 184 



IF ( .NOT.EQL) GO TO 40 


SHCK 

185 


CA* L E0LBRM 


SHCK 

186 


I F ( TT . EQ . 0 . ) GO TO 430 


SHCK 

187 


GO TO 


SHCK 

188 




SHCK 

189 

FROZEN 


SHCK 

190 




SHCK 

191 

40 

TIN = ALOG (TT) 


SHCK 

192 


IF ( .NOT • INCDEQ ) GO TO 88 


SHCK 

193 


JS1 * 1 


SHCK 

194 


CALL CPHS 


SHCK 

195 


CPR(NPT) = CPSUM 


SHCK 

196 


HSUM(NPT) = 0; 


SHCK 

197 


DO 84 J= 1 * NS 


SHCK 

198 


IF ( IUSE( J ) .EQ.O) HSUM { NPT )=?HSUM (NPT KHO ( J ) *EN ( J ,NPT ) 

SHCK 

199 

84 

CONTINUE 


SHCK 

200 


HSUM(NPT) = HSUM { NPT ) *TT 


SHCK 

201 


GO TC 50 


SHCK 

202 

88 

CALL FCALC 


SHCK 

203 


IFITT.EC.O.l GO TO 150 


SHCK 

204 


HSUM (NPT) =; HSU8C 


SHCK 

205 


CPR(NPT) = CPR1 


SHCK 

206 




SHCK 

207 

50 

RH012 = Ml*T21/(-WM(NPT)*P21) 


SHCK 

208 


GG=RFC12*MU12RT 


SHCK 

209 


RH052 = 1./RH012 


SHCK 

210 


IF ( REFL ). GC-=-MU12RT*RH052/(RH052-l. )**2 


SHCK 

211 


G( 1»1)=-GG*DLVPT(NPT)-P21 


SHCK 

212 


G f 1 » 2 ) =-GG*0L VTP ( NPT ) 


SHCK 

213 


G( 1,3) = P 21-1. +GG-MU12RT 


SHCK 

214 


IF(REFL) G ( 1 i 3 ) * P2 1-1 . +’GG* ( RH052-1 • ) 


SHCK 

21 5 


GG = GG*U/M1 


SHCK 

216 


IF I .NOT *P EFL ) GG*GG*RH012 


SHCK 

217 


G(2,1)=-CG*DLVPT(NPT)+TT*IDLVTP(NPT)-1.)/WM(NPT) 

SHCK 

218 


Gt2» 2 ) = -GG*DLVTP(NPT)-TT*CPR (NPT) 


SHCK 

219 


GG = l.-PH012**2 


SHCK 

220 


IF (REFL) GG= ( RH052+1 • ) / ( RH052- 1* ) 


SHCK 

221 


G(2,3 )=HSUM(NPT)-HS-UU**2*GG/< 2.*RR) 


SHCK 

222 


X(3) = G( 1,1 )*G(2»2)-G(1,2)*G(2*1) 


SHCK 

223 


X( 1 ) = (G( 1,3)*G(2,2)-G(2,3)*G(1,2) )/X(3) 


SHCK 

224 


X(2)=(G(1, 1)*G(2» 3)-G(2,l)*G(l»3) )/X(3) 


SHCK 

225 




SHCK 

226 


AX = X( 1) 


SHCK 

227 


AXX = X ( 2 ) 


SHCK 

228 


IF(AX.LT.O.) AX = -AX 


SHCK 

229 


IF ( AXX.LT.O. ) AXX = -AXX 


SHCK 

230 


IF (AXX*GT.AX) AX = AXX 


SHCK 

231 


I F ( AX. LT.. 00005) GO TO 150 


SHCK 

232 


A'X = AX/.4C54652 


SHCK 

233 


IF (AX»LE«1« ) GO TO 75 


SHCK 

234 


XIII = X ( 1 ) / AX 


SHCK 

235 


X ( 2 ) - X ( 2 ) / AX 


SHCK 

236 

75 

P21L = P21L+:X( 1) 


SHCK 

237 


T21L = T21L+'X(2) 


SHCK 

238 


P21=EXP(F21L ) 


SHCK 

239 


T21=EXP(T21L ) 


SHCK 

240 

100 

CONTINUE 


SHCK 

241 


WRITE(6».125) Ul( NPT ) 


SHCK 

242 

125 

FORMAT! 2EH0DID NOT CCNVERGE FOR Ul=»F8.2,56H 

ANSWERS PROBABLY 

NOSHCK 

243 

11. RELIABLE* SOLUTION may NOT EXIS'T) 


SHCK 

244 


93 
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150 RRHO(NPT) - RH052 

M2MKNPT) = WM(NPT)/M1 
PCP(NPT) = P 2 1 
T2TKNPT) = T21 
UTWOINPT) = UU*RH012 
U1U2 ( NPT ) = UU-UTWO ( NPT ), 

IF(TT.GE.TL0W/1.5.4N0.TT.LE.THIGH*1.25) GO TO 153 
WRITE!6,1152) 

1152 FORMAT { 4TH0TEMPERATURE IS OUT OF RANGE OF THE THERMO DATA) 

153 IF ( .NOT.PEFL ) GC TO 154 
U5(NPT) = LU/< RH052-1. ) 

U2ST AR ( NPT ) = U5<NPT)+UU 

154 IF(EQL) GO TO 431 
C 

C FROZEN 
C 

161 PPP(NPT) = PP 
TTTINPT) = TT 

GAMMAS ( NPT ) = CPR ! NPT ) / t CPR ( NPT ) - 1 . /Ml } 

VLM(NPT) = RR*TT/(M1*101.325*PP ) 

IF! .NOT. INCOEQ) GO TO 431 
SSUM(NPT) = 0. 

DO 166 J = 1 » N S 

PMN = PP*M1*EN{ J, NPT ) 

IF! I US E ( J ) • EQ • 0 ) SSUN(NPT). = SSUM<NPT>+EN< J,NPT)*!S(J )-ALOG(PMN) ) 
166 CONTINUE 
C 

GC TO 431 

430 IF(NPT.LT.l) GO TO 1000 
NSK = NPT 

C 

431 ISV = 0 

IF (NPT.LT .NSK ). ISV=NPT 
IFINPT.60.1) ISV*-1 
NPT = NPT+'l 
1F(E0U CALL SAVE 
IF(NPT.LE.NSK) GO TO 48 
NPT = NSK 
C 

C OUTPUT-- 2ND CONDITION 
C 

VlRITE(6*156 ) 

156 FORMAT { 1H 1 
IF(REFL) GO TO 56 
IF(.NOT.EQL) WRITEI6,57) 

57 FORMAT ( 34 HO SHOCK ED GAS (2) — INCIDENT — FROZEN) 

IFIEOL) WRITE{6,157) 

157 FORMAT! 3<3HOSHOCKED GAS (2) — INCIDENT — EQUILIBRIUM) 

DO 55 1=1 *4 

55 WU), = FV2( I ) 

W { 5 ) s FPP 

V» < 6 ) = ONE 
W I 7 ) = FTT 
W ( 8 1 - FMM 
W { 9 1 * FRA 
WHO) = FU2 
GO TO 700 

56 IF(.NOT.EQL) WRITE! 58) 

IF(EQL) WRITE (6, 690 

58 FORMAT ( 3 5HOSHOCKED GAS ! 5 ).— REFLECTED — FROZEN) 

690 FORMAT ( 40H0 SHOCK ED GAS (5) — REFLECTED — EQUILIBRIUM) 

DO 65 1=1,4 

65 Will = FUV! I) 

W ( 5 ) = FP5 
W ( 6 ) = TWO 


SHCK 245 
SHCK 246 
SHCK 247 
SHCK 248 
SHCK 249 
SHCK 250 
SHCK 251 
SHCK 252 
SHCK 253 
SHCK 254 
SHCK 255 
SHCK 256 
SHCK 257 
SHCK 258 
SHCK 259 
SHCK 260 
SHCK 261 
SHCK 262 
SHCK 263 
SHCK 264 
SHCK 265 
SHCK 266 
SHCK 267 
SHCK 268 
SHCK 269 
SHCK 270 
SHCK 271 
SHCK 272 
SHCK 273 
SHCK 274 
SHCK 275 
SHCK 276 
SHCK 277 
SHCK 278 
SHCK 279 
SHCK 280 
SHCK 281 
SHCK 282 
SHCK 283 
SHCK 284 
SHCK 285 
SHCK 286 
SHCK 287 
SHCK 288 
SHCK 289 
SHCK 290 
SHCK 291 
SHCK 292 
SHCK 293 
SHCK 294 
SHCK 295 
SHCK 296 
SHCK 297 
SHCK 298 
SHCK 299 
SHCK 300 
SHCK 301 
SHCK 302 
SHCK 303 
SHCK 304 
SHCK 305 
SHCK 306 
SHCK 307 
SHCK 308 
SHCK 309 
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n 


E 


l 


c 

c 

c 


e: 


W<7) = FT 5 
W ( 8 ) * FM5 

W(9l = FR5 N 

W(10) = FU5 
700 FMT (7) = F 2 

WRITE ( 6 f FMT } W ( 10 ) , FLl 3 UFU A ) , FB , ( UTWO ( J ) ,J=1,NPT) 

CALI OUT? 

WRITE <6 ,.156) 

FMT ( 7 ) = F2 

WRITE(6,FMT)W(5),W(6) ♦ FB *.FB * ( PCP ( J ) » J-I »NPT ) 

WRITE(6,FMT)W(7)tW(6)tFB,.FBt<T2Tl(J>tJ=ltNPT} 

FMT ( 7 ) = FA 

WRITEI6|.FMT)W(8)*W(6) tFBt-FBt (M2M1I J) t J = 1»NPT) 
WRITEI6,FMT)W(9),FRB,W(6)»FB» ( RRHO (J)»J=1»NPT) 

FMT ( 7 > = F 2 

WRITE(6*FMT) (WU), I = 1 1 A ),» ( U1U2 ( J) * J = i »NPT ) 

■IF< .NCT.EQL) GO TO 850 
CALL OUT 3 
GO TO 865 

WRITE FROZEN MOLE FRACTIONS 

850 FMT ( 7 ) = F 5 

IF< .NOT. INCDEQ) GO TO 852 
ECL = .TRUE. 

CALL CUT3 
EQL = .FALSE. 

GC TC 865 
852 WRITE(6,85A) 

85 A FORMAT (15FOMOLE FRACTIONS //) 

CC 856 N = It NREAC 
J = NUM ( N t 5 ) 

DO 855 I = 1»NPT 
V ( I ) = EN( J t I )*M1 

855 CONTINUE 

WRITE (6, FMT) SUB ( J , 1 ) t SUB { J # 2 ) t FB t FB t ( V ( I ) » I = ltNPT) 

856 CONTINUE 


C 

865 RETLRN 
C 

ENTRY SHCK1 



n 


i 


IF ( .NOT .SREFL ) GO TO 9A8 
IF( .NOT.REFL) GC TO 935 
IF(EOL.OR..NOT.R:EFLEG) GO TC 9A8 
GO TC 9A0 
935 REFL = .TRUE. 

IT2 = 5 
IT 1 = 2 
EQL = .TRUE. 

I F ( .NOT .REFLFZ ) GO TO A7 
EOL = .FALSE. 

I F ( .NCT.REFLEQ) GO TO A7 
J = 0 

DO 936 1=1 *NPT 

J = J + l 

SG( J ) = U1U2 ( I ) 

J = J ♦! 1 

S'GCJ ) = WM(I) 

J = J + l 

SG(J) = PPP(I) 

J = J + l 

SG C J ) = TTTU) 

J = J + l 

SG ( J ) = HSUM ( I ' 


SHCK 310 
SHCK 311 
SHCK 312 
SHCK 313 
SHCK 31A 
SHCK 315 
SHCK 316 
SHCK 317 
SHCK 318 
SHCK 319 
SHCK 320 
SHCK 321 
SHCK 322 
SHCK 323 
SHCK 32A 
SHCK 325 
SHCK 326 
SHCK 327 
SHCK 328 
SHCK 329 
SHCK 330 
SHCK 331 
SHCK 332 
SHCK 333 
SHCK 33A 
SHCK 335 
SHCK 336 
SHCK 337 
SHCK 338 
SHCK 339 
SHCK 3A0 
SHCK 3A1 
SHCK 3A2 
SHCK 3 A3 
SHCK 3AA 
SHCK 3A5 
SHCK 3A6 
SHCK 3A7 
SHCK 3A8 
SHCK 3A9 
SHCK 350 
SHCK 351 
SHCK 352 
SHCK 353 
SHCK 35A 
SHCK 355 
SHCK 356 
SHCK 357 
SHCK 358 
SHCK 359 
SHCK 360 
SHCK 361 
SHCK 362 
SHCK 363 
SHCK 36A 
SHCK 365 
SHCK 366 
SHCK 367 
SHCK 368 
SHCK 369 
SHCK 370 
SHCK 371 
SHCK 372 
SHCK 373 
SHCK 37A 
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rii 


j = j+i 

S G ( J ) = GAMMAS {I) 

936 CONTINUE 
GC 70 47 
940 J = 1 

DO 946 1=1, NPT 

UlUZU) = SG ( J ) 

WM ( I ) = SG { J+'l ) 

PPP(I) = S G ( J +' 2 ) 

TTT( I) =i SG ( J+3 ) 

HSUM(I) = SG(J+4> 

GAMMAS( I ) ^ SG ( J + 5 ) 

946 J = J+6 

EQL = .TRUE. 

GO TO 47 

948 IF< .NOT. INCDEQ. OR. .NOT. INCDFZ) GO TO 950 
INCDEQ = .FALSE. 

EQL = .FALSE. 

GO TO 17 

950 IF ( IOF.LT.NOF > GO TO 21 
TP = .FALSE. 

DC 999 N= 1 ,NR£AC 
RTEMP(N) = T ( 1 ) 

999 CONTINUE 
1000 RETURN 1 
END 


SHCK 375 
SHCK 376 
SHCK 377 
SHCK 378 
SHCK 379 
SHCK 380 
SHCK 381 
SHCK 382 
SHCK 383 
SHCK 384 
SHCK 385 
SHCK 386 
SHCK 387 
SHCK 388 
SHCK 389 
SHCK 390 
SHCK 391 
SHCK 392 
SHCK 393 
SHCK 394 
SHCK 395 
SHCK 396 
SHCK 397 
SHCK 398 
SHCK 399 
SHCK 400 
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SUBROUTINE DETON (*) 

CHAPMAN-JOUGUET DETONATIONS 

THE FOLLOWING DOUBLE PRECISION TYPE STATEMENTS ARE RECU I RED FOR 
IBM 360 MACHINES ONLY 

DOUBLE PRECISION HSUM j S SUM ,CPR , DLVTP ,DLVPT , GAMMAS 
DOUBLE PRECISION COEF * S , EN , ENLN , HO , DELN 


LOGICAL HP,SP,TP,EOL,TSCHED 

DIMENSION GM( 13) »CP ( 13) »H1( 13) , PUB (13) , TUB (13) , GM1 { 1 3 ) , RRHO (13 ) 

COMMON /POINTS /HSUM( 13) , SSUM(13 ) ,CPR(13) ,DLVTP( 13) ,DLVPT ( 13 ) , 

1 GANMAS(13),P(26),T(52),V(13),PPP(13),WM(13) ,SONVEL( 13) ,TTT(13) , 

2 VLM( 13 ) ,TCTN( 13) 

COMMON /SPECES/COEF (2,7, 100) , S ( 100 > , HO ( 100 ) ,DELN(1C0 ) , DUMMY! 100 ) , 
1 EN( ICO, 13) ,ENLN( 100),A( 10,100) , SUB (100, 3) , I USE ( 100 ) ♦ TEMP (50, 2 ) 
COMMON /MISC/ENN, SUMN ,TT»S0»ATOM(3»101) ,LLMT(10) ,80 ( 1 0 > , BOP ( 10, 2 ) 

1 TM,TLOW,TMIOVTHIGH,PP^CPSUM,OF,EORAT,FPCT,R,RR,HSUBO,AM(2) , 

2 HPP ( 2 ) ,PH ( 2 ) » VMIN(2 ), VPLS( 2) ,WP(2) ,DATA(221 ,NAMF(15,5), 

3 ANUM( 15,5 ) ,PECWT( 15 ) ,ENTH( 15) , F AZ ( 1 5 ) ,RTE MP ( 1 5 ) ,FC X ( 15 ) , DENS (15 ) 

4 RHOP,RMW( 15)iTLN<CR,OXF(15) , ENNL , TRACE , LL MTS ( 10 ) , SB OP ( 10*, 2 ) 
COMMON / I NDX / I DEBUG, CON VG, TP t HP , SP , I SV ,NPP , MOLES ,NP , NT, NPT , NLM , 

1 NS,KMAT, iMATi IQ 1 , I OF , NOF , NOM I T , IP , NEWR ,NSUB , NSUP', R K T ,DETN, SHOCK , 

2 IONS,NC»NSERT»JSOL».JLI Q^KASE »NREAC»IC,JS1,V0L , I T',C A LCH ,NLS , LOGV , 

3 I SUP, I SUB, ITNUM, I TM , INCDFZ, INCDEQ ,CPRF, I PP , SEQL ,PC PLT 
COMMON /PERF/PCP ( 22 ) , VMOC ( 13 ) , SP I M ( 1 3 ) * VAC I ( 13) »SUE AR (13 H 

1 SUP AR ( 13) ,APP( 13) ,AEAT( 13) ,CSTR,EQL,FROZ,SSO,AREA, AWT,NFZ, 

2 APPL.ARAT IO.ELN 
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CCMMCN /OUPT/FMT( 30) ,FP(4),FT<4),FH(4),FS(4) 

,FM(A) , F V (4 ) » FD ( 4 ) , 

DETN 

32 


1 FC(4),FG(4) ,FR,FMT13,F1,.F2,F3 

,F4,F5,FL(4) , FMT 1 9 , F A 1 , FA2 , 

DETN 

33 


2 FR1,FC1,FN(4 ) ,FR(4) ,F4(AI.,FH4) »F M T9X ,FQ 


DETN 

34 

c 





DETN 

35 


FOU I VALENCE (CP, DAT A) , (C,M„SPIM) 

, (HI , VAC I ) , ( PUR, SUB A R ) , (TUB^SUPAP ) 

DETN 

36 


EQUIVALFNCE(GM1,AEAT) , ( K*I SV) 



DETN 

37 


EQUIVALENCE! AMI, CAT A (20) ), ( CPR1 ,OATA ( 21 ) ) 


DETN 

3B 

c 





DETN 

39 


DATA FT 1/4FT1 , D/ » 

FP1/AHP1.A/, 

FH1/4HH1 ,C/ , 

FM1/4HN1 , M/ 

DETN 

40 


1 » 

FG1MHA1 /, 

FPP/4HP/P1/ , 

FTT/AHT /Tl/ 

DETN 

41 


2 i FUD/4HCET /, 

FMM/4HM/M1 /, 

FRA/AHRHO// , 

FRB /4HRF P 1/ 

DETN 

42 


3 i FMA/4H M ACH/, 

FMR/4H NO./, 

I ZERO/2HOC/ 


DETN 

43 

c 





CETN 

44 


IOF = u 




DETN 

45 

c 





DETN 

46 

c 

IF NO T SCHEDULE » 

SET TSCHE D = . 

FALSE. AND USE 

T FROM FIRST REACT ANTDETN 

47 

c 





DETN 

48 


TSCHED = .TRUE. 




DETN 

49 


IF (T( 1 ) .NE.O. ) C-0 

TO 3 



DETN 

50 


T ( 1 ) = R 7 E M P ( 1) 




DETN 

51 


TSCHED = .FALSE. 




DETN 

52 


GO TO 7 




DETN 

53 


3 CO A N=1,NRFAC 




DETN 

54 


NAME ( N» 5 1 = I ZERO 




DETN 

55 


A CONTINUE 




DETN 

56 


1 TT = T( 1) 




CETN 

57 


IOF = 1 0 F +’ 1 




CETN 

58 


OF = OXF(IOF). 




DETN 

59 


CALL NEWOF 




DETN 

60 


WRITE (6,11) 




CETN 

61 


11 FORMAT { 33H1DET0NATI0N VELOCITY 

CALCULATIONS) 


DETN 

62 

c 





DETN 

63 

c 

BEGIN T LOOP. 




CETN 

64 

c 





DETN 

65 


IT = 0 




DETN 

66 


901 IT = IT < 1 




DFTN 

67 


Tl= TUT) 




DETN 

68 


TT = T 1 




DETN 

69 


I F ( .NOT. TSCHED) GO TO 20 



DETN 

70 


CALL HCALC 




DETN 

71 


IF(TT.EQ.O.) RETURN 1 



DETN 

72 


20 IF ( IDEBUG.NE.O ) CALL 0UT1 



DETN 

73 

c 





DETN 

74 

c 

BEGIN P LCCP. 




DETN 

75 

c 





DETN 

76 


IP * C 




DETN 

77 


903 IP =IP +: 1 




DETN 

78 


Pl= PUP ) 




DETN 

79 


Hl(NPT) - HSUBO^R 




DETN 

80 


TUB < NPT ) = T 1 




DETN 

81 


PUB ( NPT ) = P 1 




DETN 

82 


CP(NPT) = C PR 1*R 




DETN 

83 


ITR= 0 




DETN 

84 


TT= 3800. 




DETN 

85 


PP1= 15. 




DETN 

86 


PP= PP1*P1 




DETN 

87 

c 





DETN 

88 

c 

CALCULATE ENTHALPY 

FOR INITIAL 

ESTIMATE CF T2 ( TT AFTER EOLBRM) 

DETN 

89 

c 





DETN 

90 


HSUBC = HI (NPT ) /R 

+ .75*T1*PP1/AM1 


DETN 

91 


TP = .FALSE. 




DETN 

92 


HP = .TRUE. 




DETN 

93 


CALL EOLBRM 




DETN 

94 


HSUBO = H1(NPT)/R 




CETN 

95 


HP= .FALSE. 




DETN 

96 


97 
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c 

c 

c 


c 

c 

c 


c 

c 

c 


IF<TT.EQ.C. J GO TO 902 
GAM= GAMMAS ( NPT ) 

TT 1 = TT/T1 
11 = 0 

TEM=TT1-,75*PP1/(CPR(NPT)*AM1) 

AMM=WM(NPT)/AM1 
WRITE(6, 190)TT 

190 FORMAT ( 8H0T EST. = , F8. 2/ 1 1 X » 4HP/P1 , 1 7X* 4HT/ T 1 ) 

WRITE(6,?03) IlfPPl^TTl 

LOOP FOR IMPROVING T2/T1 AND P2/P1 INITIAL ESTIMATE. 

200 DO 202 11=1,3 
ALFA= AMM/TT 1 

PP1= ( 1 .«GAM)*( l. + < l.-4.*GAM*ALFA/( 1.-*?GAM)**2)**.5 ) / { 2. *GAM*ALF A ) 
RK=PP1*ALFA 

TT 1= TEM-».5*PP1*GAM*(RK!*RK-1. ) / ( AM1*CPR ( NPT ) *RK ) 

IF ( IDEBUG.GT.O.AND.NPT.GE. IDEBUG) WRITE(6,203) II,PP1,TT1 
203 FORMAT < I5,2E20.8) 

202 CONTINUE 
TP= .TRUE. 

TT= T 1*TT 1 

RR1 = PP1*AMM/TT1 

BEGIN MAIN ITERATION LOOP. 


DETN 97 
DETN 98 
DETN 99 
DETN 100 
DETN 101 
DETN 102 
DETN 103 
DETN 104 
OETN 105 
DETN 106 
OETN 107 
DETN 108 
DETN 109 
DETN 110 
DETN 111 
DETN 112 
DETN 113 
DETN 114 
DETN 115 
DETN 116 
DETN 117 
DETN 118 
DETN 119 
OETN 120 
DETN 121 


205 l TR= 'I T R 1 
PP= Pl*PFl 
CALL E0L8RM 

-IF (NPT.EQ.O) GO TO 1000 
IF ITT.EO.O. ) GO TO 860 
GAM = GAMMAS (NPT ) 

ANN= KM (NPT ) /.AMI 
RR1= PP 1* AMM/TT1 

All= 1./PP1 + GAM*RR 1*DL VPT( NPT ) 

A 12= GAM*RR1*DLVTP(NPT) 

A 21= • 5*GAM* ( RR1 **2-1 .-DLVPT ( NPT I* I l.+'RRl**2) I + DLVTP ( NPT );-l. 
A22=-.5*GAM*DLVTP { NPT )*{ RR 1**2+ 1 .) -WM< NPT ) *CPR ( NPT) 

Bl= 1./PP1— l.+GAM*(RRl— 1. ). 

62= KM<NFT)*(HSUM(NPT)-H1(NPT)/R)/TT-.5*GAM*(RR1*RR1-1. ) 

D = A11*A22-A12*A21 
XI = { A22*P1-A12*B2)/D 
X2 = (A11*B2-A21*B1)/D 
ALAM= 1. 

TEM = XI 

IFITEM.LT. 0. ) TEM = -TEM 

IF ( X2.GT .TEM ) TEM=X2 

IF (-X2.GT.TEM) TEM = -X2 

IF (TEM. GT. 0.4054652) AL AM=. 405465 2 /TEM 


DETN 122 
DETN 123 
DETN 124 
DETN 125 
DETN 126 
DETN 127 
DETN 128 
DETN 129 
DETN 130 
DETN 131 
DETN 132 
DETN 133 
OETN 134 
DETN 135 
DETN 136 
OETN 137 
OETN 138 
DETN 139 
DETN 140 
OETN 141 
DETN 142 
OETN 143 
OETN 144 
OETN 145 


PP1= PP1*EXP(X1*ALAM) OETN 146 
TT1= TT 1*EXP ( X2*AL AM ) DETN 147 
TT = T1 *TT 1 DETN 148 
UO = RR1* ( RR*GAM*TT/KM(NPT) )**. 5 OETN 149 
IF( IDEBUG.GT.O.AND.NPT.GE. IDEBUG) WRITE(6,30)ITR,PP1,TTURR1*X1, DETN 150 

1X2 DETN 151 
30 FORMAT ( 7H0 ITER = , I 2 ,5X, 6HP/P 1 = , E15. 8, 5X ,6HT/T1 = , E 1 5 . 8 , 5X , lOHRHO/OETN 152 


1RH01 =, El 5.8/7X, 13HDEL LN P/Pl = ,E 15 . 8 , 5X , 1 3HDE L IN T/Tl *,E15.8) DETN 153 


CONVERGENCE TEST 

TF< ITR.LT.8.AND.TEM.GT.0.5E-04) GO TO 205 

I F ( ITR.LT .8 ) GO TO 35 

WPITE(6,34) 

34 FORMAT! 53HOCONSERVAT ION EQNS WERE NOT SATISFIEO IN 8 ITERATIONS) 
NPT = NPT- 1 


OETN 154 
OETN 155 
OETN 156 
DETN 157 
DETN 158 
OETN 159 
DETN 160 
DETN 161 


98 


II H m M 11 M 1I M MUM X tf II II M M M M 



o o o 


C 

C 


TT = 0. 

GO TO 150 
35 RRHOI NPT ) =RR 1 

IF I CP { NPT X • E Q • 0 • ) GO TO AO 
GMl(NPT) = CP(NPT) /(CP(NPT)— R/AM1) 
VMOCtNPT) = UD/(RR*GM1 ( NPT ) *Tl/AMi )**.5 
GO TO 150 
AO GMl(NPT) = 0. 

VMOC(NPT) = 0. 

150 K = 0 

IF{ IP.EQ.NP.AND. IT.EQ.NT.OR.TT.EQ.O. ) GO 
K = NPT 

IF (NPT.NE • 13 ) GO TO 870 
OUTPUT 


TO 860 


860 

5 


PROPERTIES OF AN IDEAL REACTING GAS 


FP1,FP(2),FB,FB, (PUB(J), J=1,NPT) 

FT1,FT( 2 ) t FB, FB, I TUB ( J ) , J=1 ,NPT) 
FHlrfFH(2) ,FB,F8, (Hl( J), J=1,NPT) 


57 

58 


WRITE (6,5) 

FORMAT( 1H1,A2X,A6H DETONATION 
CALL OUT 1 
WR ITE (6„46) 

A6 FORMAT ( 13H UNBURNED GAS//) 

FMT( A )=FMT13 
FMT ( 5 ) =FE 
F M T ( 7 ) = F A 
WR ITE(6,FMT ) 

FMT ( 7 ) = F2 
WRITE! 6, FMT) 

WR I TE ( 6 ,FMT ) 

DO 56 1=1, NPT 
V( I ) = A M 1 

SONVEL ( I ) = (RR*GM1( I)*TUB( I)/AM1)**.5 
56 CONTINUE 
FMT ( 7 ) = F3 

W«ITE(6,FMT) FM1,FM(2),FM13) ,FB, ( V ( J ) , J=1 , NPT ) 

IF ( .NGT.TSCHED ) GO TO 57 

FG <1),FG1,FB,FB,(GM1(J)*J=1,NPT) 

rr T ( 7 ) = F 1 

WRITE(6fFMT) ( FL { I ) , 1=1 „4 ) * (SONVEL ( J) , J = 1 ,NPT) 
WRITE(6^58) 

FORMAT ( 11HCBURNEC GAS//) 

FMT ( A ) = FMT ( 6 ) 

CALL 0UT2 
WRITE(6»68) 

68 FORMAT ( 22HODETONATION PARAMETERS //) 

FMT ( 7 )=F2 

DO 70 I =1 , NPT 

V( I )= PPP( I ) /PUB ( I ) 

PCP( I ) = T T T C I ) /TUB ( I ) 

SONVEL ( I )= SONVEL ( I ) *RRHO ( I ) 

70 CONTINUE 

WRITE! 6, FMT) FPP i FB , FB, FB , ( VI J ) , J= 1 , NPT ) 

WRITE(6,FMT) FTT* FB , F8 , FB , I PCP ( J ) , J=1 »NPT ) 

DC 72 1=1, NPT 
V< I ) = WM ( I ) /AMI 
73 CONTINUE 
FMT { 7 ) = FA 

WR I TE ( 6 , FMT ) FMMjFB,FB,FB,(V(J) ,J = 1,NPT) 

WRITE (6, FMT ) FRA,FRB,F8,FB,!RRH0(J),J=1,NPT) 

WRITE ‘ 6 »FMT) FMA,FMB,FB,FB, IVMOCI J) , J=1,NPT) 

rM T t 7 ) = F 1 

WRITE I 6, FMT) FUD , FL ( 2 ) , FL I 3 ) ,FL I A ) , I SONVEL (J) ,J = 1,NPT) 
ECL = .TRUE • 

CALL OUT 3 

END OUTPUT. 


DETN 162 
DETN 163 
DETN 16A 
DETN 165 
DETN 166 
DETN 167 
DETN 168 
DETN 169 
DETN 170 
DETN 171 
DETN 172 
DETN 173 
DETN 17A 
DETN 175 
DETN 176 
DETN 177 
DETN 178 
) DETN 179 
DETN 180 
DETN 181 
DETN 182 
DETN 183 
DETN 18A 
DETN 185 
DETN 186 
OETN 187 
DETN 188 
DETN 189 
DETN 190 
DETN 191 
DETN 192 
DETN 193 
OETN 194 
DETN 195 
DETN 196 
OETN 197 
DETN 198 
DETN 199 
DETN 200 
DETN 201 
DETN 202 
DETN 203 
DETN 204 
OETN 205 
OETN 206 
DETN 207 
OETN 208 
DETN 209 
DETN 210 
DETN 211 
OETN 212 
DETN 213 
OETN 214 
DETN 215 
OETN 216 
DETN 217 
OETN 218 
DETN 219 
DETN 220 
DETN 221 
DETN 222 
DETN 223 
DETN 224 
DETN 225 
DETN 226 
DETN 227 
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non 


C 


RETURN 

C 

ENTRY DETON 1 
C 

845 IF(K.EQ.O.AND.IOF.EQ.NOF) GC TO 1000 
IF (NP.EQ.I .AND. NT.EG.l) GO TO 7 
I DEBUG = I DEBUG- 13 
WRITE! 6*868 ) 

888 FORMAT { 11-11 
NPT = 0 

870 NPT * NPT 4 1 

IFUSV.EQ.l) ISV*-1 
CALL SAVE 

■IFUP.LT. NPI GO TO 903 
90 2 I F ( IT.LT.NTT GO TO 901 

IF( IOF.GE.NOF) GO TO 1000 
IDEBUG * IDEBUG+13 
GO TO 7 

1000 TP = .FALSE. 

RETURN 1 
SND 


DETN 228 
OETN 229 
DETN 230 
DETN 231 
DETN 232 
DETN 233 
DETN 23 A 
OETN 235 
OETN 236 
DETN 237 
DETN 238 
DETN 239 
DETN 240 
DETN 241 
DETN 242 
DETN 243 
DETN 244 
DETN 245 
OETN 246 
OETN 247 
DETN 248 
DETN 249 


BLOCK OATA 



EQUIVALENCE ( ATOM 1 *52) , ATEM ) 
ATOMIC SYMBOLS t WEIGHTS. AND VALENCES 


DATA ATOM/ 2HE ,.5 


48597E-4,-!. 


A 

2HH . 

1.00797 

1 • * 

2HHE . 

4.0026 


o«. 

2HLI t 

6.939 

B 

2HBE. 

9.0122 

2.i 

2HB , 

10.811 


3. , 

2HC , 

12.0111 

C 

2HN , 

14.0067 

0., 

2H0 » 

15.9994 


-2., 

2HF t 

18.9984 

D 

2HNE* 

20.183 

0., 

2HNA. 

22.9898 


l.t 

2HMG t 

24.312 

E 

2HAL * 

26.9815 

3 • * 

2HSI, 

28.086 


4., 

2HP , 

30.9738 

F 

2HS * 

32.064 

4., 

2HCL t 

35.453 


-l.t 

2HAR, 

39.948 

G 

2 HK , 

39.102 

l.t 

2HCA, 

40.080 


2. t 

2HSC, 

44.956 

H 

2HTI. 

47.900 

4. j 

2HV , 

50.942 


5. , 

2HCR, 

51.996 

I 

2HMN, 

54.9380 

2 • t 

2HFE, 

55.847 


3. , 

2HCD, 

58.9332 

J 

2HNI . 

58.710 

2 • t 

2HCU, 

63.540 


2., 

2HZN t 

65. 370 

K 

2HGA, 

69.720 

3. ♦ 

2HGE » 

72.590 


4. , 

2HAS, 

74.9216 

L 

2HSE » 

78.960 

4., 

2HBR, 

79.909 


-l.t 

2HKR, 

83.800 

M 

2HRB » 

85.47 

l.t 

2HSR i 

87.620 


2., 

2HY , 

86.905 

N 

2HZR* 

91.220 

4. t 

2HNB, 

92.906 


5., 

2HMC, 

95.94 

0 

2HTC, 

99.000 

7. t 

2HRU, 

101.070 


3., 

2HRH, 

102.905 

P 

2HPD. 

106.400 

2 .♦ 

2HAG, 

107.870 


l.t 

2HCD » 

112.400 

0 

2H IN ♦ 

114.820 

3 • ♦ 

2HSN, 

118.690 


4. t 

2HS P t 

121.750 


1 . 

4. 

• 1 . 

2 . 

5. 
0. 
3. 
3. 
2 . 
2 . 
3. 
0. 
3. 

6 . 
3. 
2 . 
3. 


BLOK 

1 

BLOK 

2 

BLOK 

3 

BLOK 

4 

f BLOK 

5 

BLOK 

6 

BLOK 

7 

tBLOK 

8 

BLOK 

9 

BLOK 

10 

BLOK 

11 

BLOK 

12 

BLOK 

13 

BLOK 

14 

BLOK 

15 

BLOK 

16 

BLOK 

17 

BLOK 

18 

BLOK 

19 

BLOK 

20 

BLOK 

21 

BLOK 

22 

BLOK 

23 

BLOK 

24 

BLOK 

25 

BLOK 

26 

BLOK 

27 

BLOK 

28 

BLOK 

29 

BLOK 

30 

BLOK 

31 

BLOK 

32 

BLOK 

33 

BLOK 

34 

/BLOK 

35 


100 


ii e e it n y ii h ii u if x :o u h m i i i 



n net non 


data atem/ 







BLOK 

36 

R 2HTE*127.600 

* A., 

2HI ',126. 90 A A 

» — 1. ♦ 

2HXE, 131.300 

t 

0 • , 

BLOK 

37 

S 2HCS».132.905 

* i.f 

2HBA, 137.3A0 

» 2., 

2HLA, 138.910 

f 

3., 

BLOK) 

38 

T 2HCE, 1 AO* 120 

4 3 • , 

2HPR , 1 AO. 907 

» 3. , 

2HND, 1AA.2A0 

f 

3., 

BLOK 

39 

U 2HPM , 1 A 5 *000 

» 3., 

2HSM, 150.350 

» 3. , 

2HEU, 151.960 

9 

3., 

BLOK) 

AO 

V 2HGD».l 57 • 250 

t 3 • , 

2HTB’, 158. 92A 

, 3., 

2HDY, 162.500 

t 

3. , 

BLOK 

A1 

W 2HH0 , 1 6A • 930 

i 3.* 

2HER, 167.260 

, 3., 

2HTM, 168.93A 

f* 

3 * » 

BLOK 

A2 

X 2HYB,173.0A0 

, 3 . » 

2HLU’» 17 A. 997 

» 3 • , 

2HHF , 1 78.A90 


4 • 9 

BLOK 

A3 

Y 2HTA,180.9A8 

* 5., 

2HW ,183.850 

t 6. , 

2HRE, 186.200 

f 

7. , 

BLOK 

AA 

Z 2H0S ^1 90.200 

» A. ♦ 

2HIR, 192.200 

* A. , 

2HPT, 195.090 

9 

A. , 

BLOK 

A5 

A 2HAU, 196.967 

i 3 • t 

2HHG*-200. 590 

t 2 . , 

2HTL , 20A. 370 

+ 

l.t 

BLOK 

A6 

*B 2HPB *207 .190 

4 2 . , 

2HBU208.980 

» 3 • , 

2HP0 , 2 10.000 

9 

2., 

BLOK 

A7 

t 2HAT ,210 .000 

i 0 • , 

2HRN, 222.000 

♦ 0. t 

2HFR , 223.000 

9 

1*9 

BLOK 

A8 

D 2 HR A, 2 2 6. 000 

♦ 2 • , 

2HAC, 227.000 

f 3., 

2HTH, 232.038 

9 

A. , 

BLOK 

A9 

E 2HPA, 23 1.000 

i 5.* 

2HU ,238.030 

, 6. , 

2HNP, 237.000 

f 


BLOK 

50 

F 2HPU*2A2 .000 

i A. ♦ 

2HAM , 2A3.000 

t 3 . , 

2HCM , 2A7 .000 

9 

3. , 

RLOK 

51 

6 2HBK ,2A9 .000 

* 3 . ♦ 

2HCF, 251.000 

, 3. » 

2HES , 2 5A.OOO 


0. , 

BLOK 

52 

H 2HD ,2.01A102» 

1./ 






BLOK 

53 








BLOK 

5 A 

INFORMATION USED 

IN VARIABLE OUTPUT FORMAT 




RLOK 

55 








BLOK 

56 

DATA FMT/3HI IH, AH 

I » 3AA » AH 

,A2, , 3HF 9. , 2H0 

, , 3HF9. 

,2HO,,3HF9.,2HO,i3HF9BLOK 

57 

l.I2H0,,3HF9.,2H0,,3HF9. , 

2H0, , 3HF9. ,2H0 

, ,3HF9. 

,2H0* ,3HF9. ,2H0, 

♦ 3HF9BL0K 

58 

2.1 2 HO, , 3HF9 • , 2H0 » 

*3HF9. , 

2H0 , ,3HF9. ,1H0 

t IH ) / , 

FB , FO, FI »F2 »F3 

, FA, F5/BL0K 

59 

31H ,2HO,,2Hli ,2H2, *2H3 ! , 

».2HA» : , 2H5»/,FMT13/2H13/»FMT9X/3H9X, 


FMTI9BL0K 

60 

A/3HI9,/ 







BLOK 

61 

DATA 


FP/AHP, 

A , AHTM 

,2H , IH / 



BLOK 

62 

WFT/AHT* D, AHEG K 

*AH 

,2H / , FH/AHH^ 

C , AHAL/G , 2H , IH / 



BLOK 

63 

2,FS/AHS » C,AHAL/( 

, AHG ) ( K 

*2H) / , FM/AHM , 

M , AHOL 

W , 2HT ,1H / 



BLOK 

6A 

3,FV/AH( DLV,AH/DLF 

♦ AH ) T 

,2H / , FD/AH ( DLV , AH/DLT , 2H) P , IH / 



BLOK 

65 

A ,FC/AHCP , ,AHCAL / 

♦ AH( G ) ( 

,.2HK ) / , FG /AHG A MM , AHA 

<S,2H) ,1H / 



BLOK 

66 

5 » FL /AHSON , AHVEL » ♦ AHM /SE 

,2HC / 





BLOK 

67 


-information used in performance output 


DATA FR1/AHPC/P/, FC1/2HCF/, 

1, FR/AHCSTA,AHR, F * AHT /SE ,2HC ... 

2, FA/AHIVAC,AH»LB-^AHSEC/»2HLB / » FA1 /AHAE / A / , F A2 / 1HT / 
END 


FN/AHMACH,AH NUM,AHBER , IH / 
/,FI/AHISPf ,AH LB- t AHSEC/,2HLB/ 


BLOK) 

BLOK 

BLOK 

BLOK 

BLOK) 

BLOK 


68 

69 

70 

71 

72 

73 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE TRANSP 

CALCULATES GAS TRANSPORT PROPERTIES 

MAXIMUM * 20 MOLECULES AND 17 REACTIONS 

NUMBER OF MOLECULES =; NM 

NUMBER OF CHEMICAL REACTIONS * NR 

IF PUNCHED CARDS WANTED, PUNCH = TRUE 

'ARRAY OF STOICHIOMETRIC COEFFICIENTS * STC 

NUMBER OF ROTATIONAL MODES = ROTM 

ROTATIONAL COLLISION NUMBER - ZROT 

VIBRATIONAL COLLISION NUMBER = ZVIB 

V<I BRAT1 ONAL HEAT CAPACITY = CVIBR 

MAXIMUM = 120 TABLES OF 20 TEMPERATURES EACH 

IF CROSS SECTION DATA NTAB = 1 , IF RELAXATION DATA NTAB t 2 
VISCOSITY=ANSm ♦ MONATOMIC CONDUCT I VI TY = ANS ( 2 ) , 

INTERNAL CONDUCT IV I TYNANS I 3 ) , FROZEN CONDUCTI VI TY=ANS ( A) , 
REACTION CONDUCT IV ITY = ANS ( 5 ) , EQUILIBRIUM CONDUCT I V I T Y* ANS ( 6 ) , 


TRAN 1 
TRAN 2 
TRAN 3 
TRAN A 
TRAN 5 
TRAN 6 
TRAN 7 
TRAN 8 
TRAN 9 
TRAN 10 
TRAN 11 
TRAN 12 
TRAN 13 
TRAN 1A 
TRAN 15 
TRAN 16 
TRAN 17 
TRAN 18 
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FROZEN CP=ANS(7), EQUILIBRIUM CP=ANS(8), 

FROZEN PRANDTL NL’MBER = ANS { 9 ) , EQUILIBRIUM PRANDTL NUMBER= ANS ( 1C ) 
LEWIS NUMBER = ANS(11) , MOLECULAR WE I GHT = ANS ( 1 2 ) , DENS I TY= ANS ( 13 ) , 
REACTION CP=ANS ( 14 ) * ENTHALP Y*=ANS ( 15 ) 

DOUELE PRECISION G , X , GMAT , CHECK , SUM1 , SUM2 
INTEGER SUB, SPECIE, SPECE 
REAL MONCON, INTCON, LEWIS 
LOGICAL TRNSPT,FROZN,PUNCH,NODATA 

COMMON /POINTS/HSUMI 13) ,SSUM(13) ,CPR ( 1 3 ) , DL VTP ( 13 ) , DL VPT ( 13 ) , 

1 GAMMAS ( 13) » P ( 26 ) ,T (52) » V ( 13), PPP( 13)i,WM(13) , SONVEL ( 13 ) , TTT ( 13 ) , 

2 VLM( 13 ) ,TOTN< 13 ) 

COMMON /SPECES/CQEF (2,7 , 100) ,S ( 100 ) ,H0 ( 100 ) ,OELN ( 100 ) , DUMMY (100) 

1 EN( 100, 13 ) ,ENLN( IOC ) , A ( 10, ICO) ♦ SUB ( 100,3) , I USE ( 100 ) , TEMPI 50, 2 ) 
COMMON /MISC/ENN,SUMN,TT,SO, A TOM (3, 101 ) , LL MT ( 10 ) , BO { 10 ) , ROP ( 10, 2 

1 TM,TLOW,TMIO»THIGH,PP,CPSUM,OF,EQRAT,FPCT,R,RR,HSUBO,AMI2), 

2 HPPI2) »RH(2), VMINI2) ,VPLS(2) ,WP(2) ,DATA(22) ,NAME(15,5) , 

3 ANUM(15,5),PECWT(15),ENTH(;15) ,EAZ(15),RTEMP(15),FCX(15) ,DENS(15 
A RHOP ,RMW( 15 ) ,TLN<CR ,OXF( 15) ,ENNL , TR AC E , LL MTS ( 10 ) , S BOP 1 10, 2 ) 

COMMON /DOUBLE/ G(20,211, X ( 20 ) 

COMMON /INDX/IDE8UG,C0NVG, TP, HP, SP , I SV , NPP , MOLE S ,NP , NT, NPT , NLM , 

1 NS »KMAT , I MAT, 101, IOF , NOF , NOM I T , I P , NE WR , NSUB , NSUPV R K T ,DETN , SHOCK , 

2 I ONS , NC , NSERT , J SOL , JL I Q ,KASE , NRE AC , I C , J S 1 , VOL , I T , C A LCH , NLS , LOG V , 

3 I SUP, I SUB, ITNUM, ITM, INCDFZ, INCDEQ , C PRF , I PP , SEOL , PC PL T 
COMMON /PERF/PCPI22) ,VMOC( 13) ,SPIM(13) ,VACI (13) , SUGAR (13) , 

1 SUP AR ( 13 ) ,APP ( 13) ,AEAT( i 3 ) , CSTR ,EQL , FROZ , SSO , ARE A , A WT , NFZ , 

2 APPL , ARAT 10 , ELN 

COMMON /SAVED/SLNI IOC), I QSA VE , EN SAVE , ENL SA V , LSA VE ♦ J SOLS , JL I QS* 

1 LLL,LM,MAXNP,STORE(52,16).,XS(2O),WMOL(20) , IND( 20) ,NM, 

2 FIRSTP,F IRSTV 

COMMON /TRANS/ TEM f 100, 20)., TABLES! 100, 20,3 ), SPEC IE I 100, 2 , 3 ) , 

1 OMEGA! 20, 20), AS TAR (20, 20) , B STAR ( 20 , 20 ) ,CPRR(20) , 

2 HR RT ( 20 ) ,ZROT(20) , ZV IB ( 20 ) ,CVIBR(20) ,R0TM(20) »RELXTN(20H 

3 ROTNM( 80) ,STCF( 17 , 20 ) , STC ( 17 , 20 ) , STCOEF (20 ) , ANS (15) , 

4 SPECE( 2,3) ,NTT( 100) ,NTAB( 100) ,NR,N 
CCMMON /INTERP/ Z { 20 ) »Y(20»3) ,NTP,ANSR(3) 

CCMMON /CONTRL/TRNSPT^FROZN, PUNCH, NODATA 

DIMENSION ETA (20,20) , DELHI 17 ) , CHECK ( 20 ) 

DIMENSION GMAT (20 <21 I , RTPD ( 2C , 20 ) , STXS ( 20 , 20 ) , X SKL < 2 0 , 20 ) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( ANS ( 1 ) ,VISC ) 
( ANS ( A ) , FRZCON ) 
( AN S ( 71 , CPFROZ ) 
( ANSI 10 ) ,PREQ ) 
I ANS (13) , DENSTY ) 
( EQL , EQLB ) 

( STXS , BSTAR ) 


( ANS ( 2 ) , MONCON) 
( ANS ( 5 ) ,REACON ) 
( ANS ( 8 ) ,CPEQ ) 
CANS! 11) , LEWIS ) 
(ANS! 14) , CPREAC ) 
( S ,ETA ) 

( XSKL , ETA ) 


( ANS ( 3 ) ,T NTCON ) 
(ANS (6) ,6QC0N ) 
( AN S ( 9 ) , PRFROZ ) 
(AN'S (12) ,WTMOL ) 
(ANSI 15 ) ,ENTLPY) 
(RTPD, OMEGA) 


DATA PI/3. 14 159265/, A VGDRO/6. 022 169/, BOLTZ/1. 380622/ 
OATA RPVT/82.0562/ 

OATA ND/AHLAST/ 

NAMELIST /MATRX/GMAT 

READ TRANSPORT ANO RELAXATION DATA FROM TAPE 3 
SEARCH FOR AND STORE INTERACTIONS TO BE CONSIDERED 

NK= 1 

RE AC (3) ( ( SPECE ( 1 4 L ) , L = 1 ,3 ) , I = 1 , 2 ) ,NTP , NTB , ROTN 

IF(SPECE(1,1).EQ.ND) GO TO 10 

K*1 

DC 5 J= 1 ,NS 
CO 1 N= 1 ,NPT 
TESTEN= ( 1 .E-7)/WN(N) 


TRAN 

19 

TRAN 

20 

TRAN 

21 

TRAN 

22 

TRAN 

23 

TRAN 

2 A 

TRAN 

25 

TRAN 

26 

TRAN 

27 

TRAN 

28 

TRAN 

29 

TRAN 

30 

TRAN 

31 

TRAN 

32 

TRAN 

33 

, TRAN 

3 A 

TRAN 

35 

TRAN 

36 

, TRAN 

37 

TRAN 

38 

TRAN 

39 

TRAN 

AO 

TRAN 

41 

TRAN 

42 

TRAN 

43 

TRAN 

44 

TRAN 

45 

TRAN 

46 

TRAN 

47 

TRAN 

48 

TRAN 

49 

TRAN 

50 

TRAN 

51 

TRAN 

52 

TRAN 

53 

TRAN 

54 

TRAN 

55 

TRAN 

56 

TRAN 

57 

TR-AN 

58 

TRAN 

59 

TRAN 

60 

TRAN 

61 

TRAN 

62 

TRAN 

63 

TRAN 

64 

TRAN 

65 

TRAN 

66 

TRAN 

67 

TRAN 

68 

TRAN 

69 

TRAN 

70 

TRAN 

71 

TRAN 

72 

TRAN 

73 

TRAN 

74 

TRAN 

75 

TRAN 

76 

TRAN 

77 

TRAN 

78 

TRAN 

79 

TRAN 

80 

TRAN 

81 

TRAN 

82 

TRAN 

83 

TRAN 

84 
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ooo oo o n n 


1 

IF IEN( J,N) .GT.TESTEN) GO TO 2 

TRAN 

85 


GO TO 5 

TRAN 

86 

2 

DO 4 1=1,3 

TRAN 

87 

4 

TF(SPECE(K,I).NE.SUB(J,IH GO TO 5 

TRAN 

88 


GO TO 6 

TRAN 

89 

c 

CONT INUE 

TRAN 

90 


READ! 3) ITEM INK, I) , ( T ABLES ( NK , I , L ). , L = 1 , 3 ) , I = 1 , NTP ) 

TRAN 

91 


GO TO 13 

TRAN 

92 

6 

K*2 

TRAN 

93 


DO 8 JJM,NS 

TRAN 

94 


CO 7 II = 1,3 

TRAN 

95 

1 

IF(SPECE(K,I'I ),NE«SU81JJ,II) ) GO TO 8 

TRAN 

96 


IF(ENIJJ,N). GT.TESTEN) GO TO 10 

TRAN 

97 

8 

CONT INUE 

TRAN 

98 


READ! 3) (TEMINKMJ , ( TABLES ( NK , I , L ). , L = 1 , 3 ) , I = 1 , NTP ) 

TRAN 

99 


GO TO 13 

TRAN 

100 

1C 

DO 12 L = 1 , 3 

TRAN 

101 


DO 12 1=1,2 

TRAN 

102 

12 

SPEC IE (NK, I , L ) =SPECE ( I , L ) 

TRAN 

103 


IF (SPECIE (NK,1,1). EQ. ND ) GO TO 17 

TRAN 

104 


NTT ( NK ) =NTP 

TRAN 

105 


NTABINK ) = NTB 

TRAN 

106 


ROTNM( NK ) =ROTN 

TRAN 

107 


RE AD ( 3 ) ( TEM ( NK , I ) ,( TABLES ( NK, I ,L) , L=1 , 3 ) , 1=1, NTP) 

TRAN 

108 


NK=NK+1 

TRAN 

109 


IF(NK.GT.IOO) GO TO 19 

TRAN 

110 


GO TO 13 

TRAN 

111 

19 

WR I T E l 6 . 1 8 ) 

TRAN 

112 

18 

FORMAT! 1F0,40X,5CHTABLES OF TRANSPORT AND RELAXATION 

DATA ARE FILLTRAN 

113 

1 ED ) 

TRAN 

114 

IT 

REWIND 3 

TRAN 

115 



TRAN 

116 


START TRANSPORT CALCULATIONS 

TRAN 

117 


22 DO 3 N=1,NPT 

IF ( ISV.EQ.0.AND.MAXNP.GT.12) CALL OUT 
If (MAXNP.GT .51 ) CALL OUT 
TT = TT T ( N ) 

PP = PPP ( N ) 

CALL INPUT 

KM 

IF(TT.LE.TMID) K = 2 
DO 26 1=1, NW 
JMND( I ) 

CPRR ( I ) = ( ( (C0EF(Ki5,J)*TT+C0EF(K,4,J) ) *TT+COEF ( K ,3 , J ) ) *TT + 

1 COEF(K,.2, J) )*TT + COEF(K,l, J) 

HRPT ( I ) = ( ( ( { CQEF ( K, 5, J ) /5. ) *TT+COEF { K , A , J ) /4. ) *TT + COEF ( K , 3 , J ) / 
1 3. )*TT+X0EF(K,2,J)/2. )*TT+:COEF (K,l, J)+C0EF(K,6, J)/TT 
26 CONTINUE 

CALCULATE VISCOSITY AND MONATOMIC THERMAL CONDUCTIVITY 

CONST = (5./16. )*SQRT( 1.0E5*80LTZ/(PI*AVGDR0) ) 

DC 24 1=1,15 

24 ANSI I ) = 0 • 0 
CO 25 1=1, NM 
CO 2 5 J= I » NM 

ETA ( I , J ) = C0NST*SQRT(2.0*WM0L(I ) *WMOL ( J ) *TT/ ( WMOLI I ) +WMOL ( J ) ) ) / 

1 OMEGA( I, J ) 

25 E T A ( J , I ) = E T A ( I,J) 

DO 27 1=1, NM 

DO 27 J=I,NM 
IF(I-J) 29,28*29 


TRAN 118 
TRAN 119 
TRAN 120 
TRAN 121 
TRAN 122 
TRAN 123 
TRAN 124 
TRAN 125 
TRAN 126 
TRAN 127 
TRAN 128 
TRAN 129 
TRAN 130 
TRAN 131. 
TRAN 132 
TRAN 133 
TRAN 134 
TRAN 135 
TRAN 136 
TRAN 137 
TRAN 138 
TRAN 139 
TRAN 140 
TRAN 141 
TRAN 142 
TRAN 143 
TRAN 144 
TRAN 145 
TRAN 146 
TRAN 147 
TRAN 148 
TRAN 149 
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U o V 


C 


28 SUM=0.0 TRAN 

DO 30 K=1,NM TRAN 

IF(K-I) 31,30,31 TRAN 

31 SUM=2.0*XS! I >*XS!K)*WMOL ( I ) * WMOL ( K ) * { ! 5 . /3. )/ASTAR ( I ,K)+WM0L {K )/ TRAN 

1 WMOL ! I))/(ETA!I,K)*{ WMOL { I ) +WM0L! K ) ) **2 ) +SUM TRAN 

30 CONTINUE TRAN 

Gt I,J) = XS( I )**2/ETA{ I, I ) + SUM TRAN 

GC TC 27 TRAN 

29 G( I,J)=-2.0*XS( I )*XS< J)*WMOL !I )*WMOL( J)*< ( 5 . /3. ) /AST AR ( I , J ) -1 . 0 > / TRAN 

1 t ET A ! I » J ) * t WMOL ( I J + WMOL ! J ) ) **2 ) TRAN 

G{J,I)=G(I,J) TRAN 

27 CONTINUE TRAN 

K=NM4 1 TRAN 

DO 32 I = 1 , NM TRAN 

32 GII,K)=XS! I ) TRAN 

IMAT=NM TRAN 

DO 33 1=1, NM TRAN 

00 33 J = 1 1 K TRAN 

22 GMAT ! I , J ) = G t I » J ) TRAN 

CALL GAUSS TRAN 

DO 3A 1=1, NM TRAN 

CHECK ( I >=0.0 TRAN 

DO 35 J = 1 , NM TRAN 

35 CHECK { I )= CHECK ( I )+X ( J )*GMAT ! I , J ) TRAN 

IF { ABS ( (CHECK! I)-XS( I) > / X S ( I ) ) -0,0001 ) 3A,36,36 TRAN 

36 WRITE! 6,37 ) NM , I , CHECK ( I) , XS < 1) TRAN 

37 FORMAT! 1H1 ,31X, A8HERR0R IN GAUSS SOLUTION IN CALCULATING VI SCOS I TYTR AN 

1//3X, 10HTHERE AR'E 12, ASH EQUATIONS AND THERE IS AN ERROR IN EQUATTRAN 
2 ICN 1 2 ,2 6H THE CALCULATED ANSWER IS F10.7,12H INSTEAD OF F10.7 TRAN 
3//50X, 19HTHE MATRIX ARRAY IS/) TRAN 

WRITE! 6 ,MATRX) TRAN 

3A CONTINUE TRAN 

DC 29 1=1, NM TRAN 

99 VI SC = VI SC+IXS ( I )*X ! I ) TRAN 

TRAN 

DO AO 1=1 , NM TRAN 

DO AO J=I»NM TRAN 

IF(I-J) A2,AliA2 TRAN 

A1 SUM=0 *0 TRAN 

DO A3 K=1 , NM TRAN 

IFIK-I) AA*A3^AA TRAN 

A A SLiM= 16.0*XS ! I ) *XS ( K ) * C7. 5* WMOL ( I ) **2+6. 25* WMOL! K ) **2-3.0* TRAN 

1 WMOL !K)**2*BSTAR! I ,K ) +A.O*WMOL ( I ) *WMOL ( K ) *ASTAR ( I , K ) )*WMOL! I)* TRAN 

2 WMOL IK)/! 15. 0*R*< WMOL ! I KWMOL(K) >**3*ASTAR ( I ,K) *ETA ( I,K) ) + SUM TRAN 

A3 CONTINUE TRAN 

G( I , J ) = 16.0*XS ( I )**2*WM0Lt I ) /< 15.0*R*ETA 1 1 , 1 ) ) + SUM TRAN 

GO TO AO TRAN 

A 2 Gt I,J)=-I6.0*XS! n*XSlJ)*WMOL< I ) **2*WM0L ( J ) **2* ( 13. 75-3. 0* TRAN 

1 BSTAR! I,J )-AiO*ASTAR(I,J) ) / ! 15 . 0*R* ( WMOL (I) +WMOL ( J ) )**3 TRAN 

2 * A ST A R ( I , J ) *E T A H , J ) ) TRAN 

G! J, I ) = G! I ,J ) TRAN 

AO CONTINUE TRAN 

K*NN41 TRAN 

CO A 5 1 = 1, NM TRAN 

A 5 GU,K) = XS( I) TRAN 

CALL GAUSS TRAN 

DO A 7 1=1, NM TRAN 

A 7 MONCON=MONCON+A.O*XSU )*X< I ) TRAN 

TRAN 

CALCULATE INTERNAL THERMAL CONDUCTIVITY TRAN 

TRAN 

DO 10A 1=1, NM TRAN 

IF!CVIBR! I J.EQ.0.0) CVIBRII) = CPRR < I )-! 2. 5+0.5*R0TM (I) ) TRAN 

RELXTN! I )=0.0 TRAN 

IF ( ZROT (I).NE.O.) RELXTN! I )=G.5*R0TM! I )/ZRCT< I ) TRAN 

IF(ZVIB( I l.NE.O. ) RELXTNd )=RELXTN( I ) +CVIBR ( I ) /ZVIB ( I ) TRAN 


150 

151 

152 

153 
15A 

155 

156 

157 
15B 

159 

160 
161 
162 
163 
16A 

165 

166 

167 

168 

169 

170 

171 

172 

173 
17A 

175 

176 

177 

178 

179 

180 
181 
182 
183 
1 8 A 

185 

186 
187- 
188 

189 

190 

191 

192 

193 
19A 

195 

196 

197 

198 

199 

200 
201 
202 
203 
20A 

205 

206 

207 

208 

209 

210 
211 
212 
213 
21 A 
215 
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104 CONTINUE 

DC 53 1=1, NM 

IFICPRRI I ). EQ.2.5) GO TO 53 
SUN=0.0 
DO 54 K= I , NM 
IF(K-I) 55,54^55 

5 5 SUM=$UM+:ASTAR< I , I)*FTA( l , I ) * XS ( K > *2 .0*WM0L( K ) / ( 4$TAR ( I , « )* 
1 'ETA(I,K)#XS(I)*(WMOLtI l+WMOLIK ) ) ). 

54 CONTINUE 

INTCON=INTCON + < 1.2*ASTAR( I ,1 )* ( CPRR ( I )-2.5)-RELXTNI I ) * 

1 (2. 5-1. 2*A STAR (HI) )**2/(0.5*PI+RELXTN( I)*{5.0/3.0+1.2* 

2 ASTARt I, I ) / ( C P R R I I )-2. 5 ) >;) ) *R*ETA (I , I) /WMOL (I> / 1 1 .O + SUM > 
53 CONTINUE 

IF (NR.EQ.C1 GO TO 91 
IF(FRCZN) GO TO 91 

CALCULATE REACTION HEAT CAPACITY AND THERMAL CONDUCTIVITY 

L*14NR 
SUM1=0.0 
SUM2=G.O 
DO 65 IM »NR 
DELHI I ) =0.0 
DC 66 K= 1 , NM 

66 DELHI I ) =?STC I I *K ) *HRRT (K l+DELHI I ) 

65 G I I »L ) = DELH( I ) 

J J=NM- 1 
DO 99 K= 1 , J J 
LL = K4' 1 

DO 99 L = L L »NM 

ftT P 0 1 K , L ) = V)MOL(K)*WMGL(L). / 

1 (ASTAR(K,L)*ETA(K,L)*(WMOL(K). + WMOL(L).) ) 

XSKL(K,L) =? 1 .0/ I XS I K )*XSI L ) ) 

XSKL I L » K ) = XSKL (K ,L ) 

99 RTPDI L, K ) = RTPD ( K , L ) 

DO 98 1=1,17 
DO 98 J=1 , 20 

98 IF ( APS (STC ( I ,J» ) \l T.1.0E-6) STC(I,J) = 0.0 
DO 67 1=1, NR 
DO 67 J =: I , NR 
DO 68 K= 1 , J J 
LL=K+1 

DC 68 L=iL L ,NM 
STXS ( K , L ) = 0.0 

IF USTC(I,K).EQ.C.O).AND.(STC(I,L).EQ.O.OH GOTO 68 
IF (<STC(J,K).EQ.O.O).AND.{STC{J,L».EQ.O.On GO TO 68 
STXS(K,L) = XSKL (K , L ) * 

1 IXSIL ) *STC ( l , K )-XS I K ) *STC I I ,L)>* 

2 (XS(L)*STC( J*K)-XS(K)*STC< J,L) ) 

SUM 1 = SUM 1 + STXS I K , L ) 

SUM2 = SUM2 + R TPO (K,L)*STXS1K,L) 

68 CONTINUE 

GMAT I I , J ) ^ SUM2 
SUM 2 = 0 . 0 

GMAT I J, I ) = GMAT ( I , J ) 

G I I , J ) = SUVi 
SUM1 =C . 0 

67 G( J, I ) = G ( I , J ) 

IMAT=NR 

CALL GAUSS 
DC 101 1=1, NR 

101 CPREAC=CPREAC+R*DELH( I)*X( I ) 

L*14NR 
DC 57 1=1, NR 


TRAN 216 
TRAN 217 
TRAN 218 
TRAN 219 
TRAN 220 
TRAN 221 
TRAN 222 
TRAN 223 
TRAN 224 
TRAN 225 
TRAN 226 
TRAN 227 
TRAN 228 
TRAN 229 
TRAN 230 
TRAN 231 
TRAN 232 
TRAN 233 
TRAN 234 
TRAN 235 
TRAN 236 
TRAN 237 
TRAN 238 
TRAN 239 
TRAN 240 
TRAN 241 
TRAN 242 
TRAN 243 
TRAN 244 
TRAN 245 
TRAN 246 
TRAN 247 
TRAN 248 
TRAN 249 
TRAN 250 
TRAN 251 
TRAN 252 
TRAN 253 
TRAN 254 
TRAN 255 
TRAN 256 
TRAN 257 
TRAN 258 
TRAN 259 
TRAN 260 
TRAN 261 
TRAN 262 
TRAN 263 
TRAN 264 
TRAN 265 
TRAN 266 
TRAN 267 
TRAN 268 
TRAN 269 
TRAN 270 
TRAN 271 
TRAN 272 
TRAN 273 
TRAN 274 
TRAN 275 
TRAN 276 
TRAN 277 
TRAN 278 
TRAN 279 
TRAN 280 
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51 


59 


71 

72 

73 


70 

75 

91 

102 


G( I »L )=DELHf I ) 

JJ=NM— 1 
CC 59 1=1, NR 
DG 59 J=I,NR 
G < I,J) =; GM&T { I,JI 
G< J, I ) =G { I,J ) 

CALL GAUSS 
DC 7C‘ 1 = 1, NR 
CHECK I I ) = 0.C 
DO 71 J = 1 , NR 

CHECK ( I ) = CHECK ( I )+X< J )*GMAT( I , J ) 

I F ( A B S ( < CHECK! 1 ) —DEL H ( I ) ) /DELHI I) 1-0.010 ) 70 ♦ 72, 72 
WRITE (6^73) NR, I , CHECK! I) , DELHI I) 

FORMAT! IF 1 , 3 1 X , 68HFRROR IN GAUSS SOLUTICN IN CALCULATING RE ACT 1 1 
1THERMAL CONDUCT I V I TY//3X , 10HTHERE ARE I2,45H EQUATIONS AMD THEPI 
2S AN ERROR IN EQUATION I2,26H THE CALCULATED ANSWER IS F10.7, 
312H INSTEAD OF F 10 . 7/ /50X , 1 9HTHE MATRIX ARRAY IS/) 

WRITE(6,MATRX) 

CONTINUE 
DO 75 1=1, NR 

REACCN=ftE ACON+R*DELH( I)*X( I) 

REACON = ! 3./5. )*REACON 


105 


CALCULATE OTHER ANSWERS 

FRZCON=MONCON+ INTCON 
EQCON=FRZ CON + REACON 
DO 1C2 1=1, NM 

CPFROZ=CFFROZ+XS( I )*CPRR( I ) 
ENTLPY=ENTLPY+XS( I )*HRRT( I ) 
WTMCL=WTMOL+XS< I )*WMCL! I ) 
CPFRCZ=CPFROZ*R/WTMOL 
CPREAC=CPREAC/WTMOL 
CPEQ=CPRE AC+CPFR02 
ENTLPY=R*TT*ENTLPY/WTMOL 
PRFROZ = VISC*CPFR‘OZ/FRZCON 
PREQ=VI SC*CPEQ/EQCON 
PR EC=V I SC*CPEQ/EGCON 
DENSTY=(WTM0L*PP)/!RPVT*TT) 

IF! FRCZN.OR.NR.EQ.O) GO TO 105 

LEWI S=( REACON *CPFROZ)/(FRZCON*CPREAC) 

CONTINUE 

CALL OUT 

CONT INUE 

RETURN 

END 


TRAN 

2 H 1 

TRAN 

282 

TRAN 

283 

TRAN 

284 

TRAN 

285 

TRAN 

286 

TRAN 

287 

TRAN 

288 

TRAN 

289 

TRAN 

290 

TRAN 

2Q1 

TRAN 

292 

TRAN 

293 

TRAN 

294 

TRAN 

295 

TRAN 

296 

TRAN 

297 

TRAN 

298 

TRAN 

299 

TRAN 

300 

TRAN 

301 

TRAN 

302 

TRAN 

303 

TRAN 

304 

TRAN 

305 

TRAN 

306 

TRAN 

307 

TRAN 

308 

TRAN 

309 

TRAN 

310 

TRAN 

311 

TRAN 

312 

TRAN 

313 

TRAN 

314 

TRAN 

315 

TRAN 

316 

TRAN 

317 

TRAN 

318 

TRAN 

319 

TRAN 

320 

TRAN 

321 

TRAN 

322 

TRAN 

323 

TRAN 

324 

TRAN 

325 

TRAN 

326 

TRAN 

327 

TRAN 

328 


C 



SUBROUTINE INPUT 

I NPT 

1 

C 


INPT 

2 

C 

BRINGS IN AND SORTS OUT INPUT FOR TRANSPORT CALCULATIONS 

I NPT 

3 

C 


INPT 

4 


DOUBLE PRECISION G,X 

INPT 

5 


INTEGER SUB, SPECIE, SPECE 

INPT 

6 


REAL MONCON, INTCON, LEWIS 

INPT 

7 


LOGICAL 1RNSPT,FR0ZN, PUNCH, NODATA 

INPT 

8 
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nnrirt 


C 


c 

c 


c 


INPT 

COMMON /P0INTS/HSUM< 13) ,$SUM (13 ) ,CPR ( 13) , DL VTP ( 13) , CL VPT ( 13) , INPT 

1 GAMMAS ( 131 ,P( 26 ),T(52) ,V( 13),PPP(13),WM(13) , SONVEL ( 13 ) ,TTT ( 13 ) , INPT 

2 VLM< 13 ) , TOTN 1 13 ) INPT 

COMMON /SPECES/COEF(2,7, 100) ,S( 100 ), HO ( 100 ) ,DELN { 100 ), DUMMY ( 100 ) , INPT 

1 EN( 10O,13I,ENLN( 100) , A ( 10,100), SUB ( 100,3) , IUSt ( 100) , TEMPI 50, 2 ) INPT 
COMMON /MISC/ENN, SUMN ,TT ,S0,AT0M(3»101) , ILMT ( 10 ) , BO ( 10 ) .BOP ( 10* 2 ), INPT 

1 TM,TLOW,TMIDiTHIGH,PP,CPSUM,OF , EQR AT , FPCT , R , RR , HSUBO , AM ( 2) , INPT 

2 HPPI 2) ,RH(2) i VMIN(2),VPLS(2) ,WP(2) ,DATA(22) ,NAMF(15,5) , INPT 

3 ANUM( 15,5 ) .PECWTC 15) *ENTH( 15) ,FAZ< 15) ,RTEMP(15) ,FCX ( 15) ,DENS( 15 ) , INPT 

A RHOP , RMW( 15 ) , TIN , CR , OXF ( 1 5 ) ,ENNL, TRACE , LL MTS ( 10 ) ,SBOP( 10 V 2) INPT 

COMMON /DOUBLE/ G(20,21), XI20) INPT 

COMMON /INDX/IDEBUG,CONVG,TP,HP,SP, I SV ,NPP , MOLES ,NP , NT , NPT , NLM , INPT 

1 NS,KMAT, I MAT HOI# I OF ,NOF ,NOMI T , I P ,NE WR , NSUB ,NSUP, R KT , DETN, SHOCK , INPT 

2 IONS,NC,NSERT, JSOL,JLI Q ,KA$E , NRE AC , IC, JS1 , VOL, IT,CALCH,NLS,LOGV, INPT 

3 I SUP, I SUB, ITNUM.1TM, INCDF Z , INCDEQ , CPRF , I PP , SEQL , PC P LT INPT 

COMMON /PERF/PCP(22) ,VM0C<13) ,SPIM(13) , VAC I (13) ,SUBAR(13U INPT 

1 SUP AR ( 12 ) *APP(13),AEATM3) ,CSTR , EOL ,FROZ , SSO , ARE A , A WT , NFZ , INPT 

2 APPL, ARATIO,ELN INPT 

COMMON /SAVED/ SLN( IOC ) , I Q SAVE , EN SAVE , ENL SAV , L SAVE ♦ JSOLS, JLIQS, INPT 

1 LLL»LM»MAXNP,STORE(52»T6). »XS(20),WMOL(20)»IND(20),NM, INPT 

2 FIRSTP t F IRSTV INPT 

COMMON /TRANS/ TEM ( ICO , 20 ) , T ABLE S < 100 , 20 , 3 ) , SPEC I E ( 1 00, 2 , 3 ) , INPT 

1 0MEGA(20,20),ASTAR(2O,20) , B STAR ( 20 , 20 > ,CPRR(20) , INPT 

2 HRRTI20) ,ZR0T(2Q) , ZV IB ( 20 ) , CVI BR( 20 ) »RCTM(20) ,RELXTN(20)^ INPT 

3 ROTNM180) ,STCF( 17,20, STCI17, 20), STCOEF(20) ,ANS(15 ) , INPT 

A SPECE( 2,3) ,NTT( 100) .NTABI100) ,NR,N INPT 

COMMON /INTERP/ Z ( 20 ) , Y I 20 , 3 ) , NTP* ANSR ( 3 ) INPT 

COMMON /CONTRL/TRNSPT,FROZN, PUNCH, NODATA INPT 

INPT 

DIMENSION I ATOM (3,101) INPT 

INPT 

EQUIVALENCE ( ATOM . I ATOM ). INPT 


EQUIVALENCE 

(ANSI 1 ) 

,VISC ) 


( ANS I 2 ) 

, MCNCON ) , 

(ANS (3) 

, INTCON) 

INPT 

equivalence 

( ANS(A) 

, FR ZCON ) 


( ANS ( 5 ) 

, RE ACON ) , 

( AN S ( 6 ) 

, EQCON ) 

INPT 

EQUIVALENCE 

( ANS ( 7 ) 

tCPFROZ ) 


( ANS ( 8 ) 

,CPEQ ), 

( ANS (9) 

r PRFR07 ) 

INPT 

EQUIVALENCE 

( ANSI 10) 

, PREQ ) 


( ANSU1) 

, LEWIS ), 

(ANS (12) 

»WTMOL ) 

INPT 

EQUIVALENCE 

I ANSI 13) 

, DENSTY ) 


( ANS( 1A) 

,CPREAC) , 

(ANS (15) 

,ENTLPY) 

INPT 


INPT 

DATA MAXNM/20/ ,ND/AHLAST/,NBLANK/1H / INPT 

INPT 

INPT 

PICK OUT ELEMENTS INPT 

INPT 

IF(FROZN.AND.N.GT.NFZ) GO TO 92 INPT 


9 

10 

11 

12 

13 

1A 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3 A 

35 

36 

37 

38 

39 
AO 
A1 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
A9 

50 

51 

52 

53 



IF (FR0ZN.AND.MAXNP.GT*12) GO TO 92 

INPT 

5A 


NSP=NS 

INPT 

55 


DC 1 J=1,NLM 

INPT 

56 


DO 2 1 = 1 , N S 

INPT 

57 


IFILLMT(J) *NE»SUBI I ,1) ) GO TC 2 

INPT 

58 


SUMA=0.0 

INPT 

59 


CO 60 Ks 1 , NLM 

INPT 

60 

60 

SUMA=SUMA+A(K, I ) 

INPT 

61 


IFtSLMA.NE.l. ) GO TO 2 

INPT 

62 


IND( J )= I 

INPT 

63 


GO TO 1 

INPT 

6A 

2 

CONTINUE 

INPT 

65 


WR I T E I 6 ,6 1 ) LLMT(J) 

INPT 

66 

£1 

FCRMAT( 1H0 ,15X,58HNO ELEMENT WAS FOUND IN 

THE LIST OF SPECIES WITHINPT 

67 


1 THE NAME A3,A5H0R ELSE THERE IS AN ERROR 

IN THE A ( I ,K) ARRAY) INPT 

68 


NSP = NSP+!1 

INPT 

69 


IND(J) = NSP 

INPT 

70 


E N ( N S P » N ) n C.O 

INPT 

71 


CO 3 K = 1 , N L M 

INPT 

72 

3 

A IK, NSP) = 0.0 

INPT 

73 


A(J,NSP) = 1.0 

INPT 

7A 
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SUB<NSP,1> ^ LLMT(J) 

SUB ( N SP » 2 ). = NBLANK 
SUB (NSP ,3 ) = NBLANK 
1 CONTINUE 
C 

C Pi CK OUT IMPORTANT SPECIES 

C 

NM=NLM 

DO 4 1=1, NLM 

J* IND< I ) 

EN(J,N)=-EN{ JiN) 

4 CONTINUE 

TESTEN=(1 .E-7)/WM(N) 

5 B1GEN=( l.E-7 J/WMIN) 

DC 6 J=1,NSP 

IF! IUSE ( J ).NE.O) GO TO 6 
IF(EN(J,M .LT.BIGEN) GO TO 6 
81GEN=EN( J,N) 

6 CONTINUE 

IF(BIGEN.EC.TESTEN) GO TO 7 
DO 59 J = 1 , NSP 

IF ( BIGEN. NE.ENI J,N) ) GO TO 59 
EN( J,N)=-EN( J»N) 

NM=NM+ 1 
INO ( NM ) J 
59 CONTINUE 

IFINN.LT. NAXNM ) GO TC 5 

7 DO 8 1=1, NM 
J- IND( I ) 

EN ( J ,N ) =- EN ( J ,N ) 

8 CONTINUE 
C 

C CALCULATE MOLE FRACTIONS FROM THE EN(J,N> 

C 

TOTAL=0.O 
DO 10 I ail, NM 
J* IND ( I ): 

XS( I ) =EN ( J ,N ) 

TOTAL=EN( J,N)+TOTAL 

10 CONTINUE 

DO 11 1=1, NM 

11 XS ( I ) =X S (I ) /TOTAL 
CO 31 1=1, NM 

31 IF(XSU) .LT.l.E-10) XS(I)-1.E-10 
C 

C CALCULATE MOLECULAR WEIGHTS 

C 

DO 12 I =; 1 , NM 

wmol i n=o.o 

12 CONTINUE 

DO 32 1=1, NLM 
DO 33 K= 1 » 101 

IFILLNTI D.EQ.IATONdiKU GO TO 34 

33 CONTINUE 

34 DO 35 J = 1 , N M 
L* INDt J ) 

WMOL I J )=WMOL( J )+!ATOM( 2,K )*A( I *L ) 

35 CONTINUE 

32 CONTINUE 
92 CONTINUE 

C 

C FIND TRANSPORT AND RELAXATON DATA FOR IMPORTANT INTERACTIONS 

C 

DO 9 1=1, NM 
ZKOT(I) = 0.0 


I NPT 75 
INPT 76 
INPT 77 
INPT 78 
INPT 79 
INPT 80 
INPT 81 
INPT 82 
INPT 83 
INPT 84 
INPT 85 
INPT 86 
INPT 87 
INPT 88 
INPT 89 
INPT 90 
INPT 91 
INPT 92 
INPT 93 
INPT 94 
INPT 95 
INPT 96 
INPT 97 
INPT 98 
INPT 99 
INPT 100 
INPT 101 
INPT 102 
INPT 103 
INPT 104 
INPT 105 
INPT 106 
INPT 107 
INPT 108 
INPT 109 
INPT 110 
INPT 111 
INPT 112 
INPT 113 
INPT 114 
INPT 115 
INPT 116 
INPT 117 
INPT 118 
INPT 119 
INPT 120 
INPT 121 
INPT 122 
INPT 123 
INPT 124 
INPT 125 
INPT 126 
INPT 127 
INPT 128 
INPT 129 
INPT 130 
INPT 131 
INPT 132 
INPT 133 
INPT 134 
INPT 135 
INPT 136 
INPT 137 
INPT 138 
INPT 139 
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ROTM(I) = 0,0 



I NPT 

140 


Z V I B ( I) = 0.0 



INPT 

141 


CV IBR( I ) = 0.0 



INPT 

142 


DO 9 J=1,NM 



INPT 

143 


OMEGA ( I ,J ) = C . 0 



INPT 

144 

9 

CONT INUE 



INPT 

145 


NK = 0 



INPT 

146 

18 

NK = NK + 1 



INPT 

147 


IF(SPECIE(NKfl f 1 ) .EQ.NO) GO TO 

22 


INPT 

148 


K*1 



INPT 

149 

14 

DO 16 L = 1 * N M 



INPT 

150 


J*IND(L ) 



INPT 

151 


DC 15 I =5 1,3 



INPT 

152 


IFCSPECIE (NK,K, I ).NE.SUB(J, I )) 

GO 

TO 16 

INPT 

153 

15 

CONT INUE 



INPT 

154 


IFIK.EQ.2) GO TO 20 



INPT 

155 


M*L 



INPT 

156 


GO TO 17 



INPT 

157 

16 

CONTINUE 



INPT 

158 


GC TO 18 



INPT 

159 

17 

JJ*J 



INPT 

160 


DO 19 1=1,3 



INPT 

161 


If (SPECIE (NK, 2, I ) ,NE • SUB ( J , I ) ) 

GO 

TO 24 

INPT 

162 

19 

CONTINUE 



INPT 

163 


GO TO 20 



INPT 

164 

24 

K*2 



INPT 

165 


GC TO 14 



INPT 

166 

20 

NTP = NTT (NK.) 



INPT 

167 


DC 39 1=1, NTP 



INPT 

168 


Zl I )=TEM(NK, I ) 



INPT 

169 


DO 39 Jd,3 



INPT 

170 


YtI,J)=TABLES(NK,I,J) 



INPT 

171 

39 

CONTINUE 



INPT 

172 


CALL LGRNGE(TT) 



INPT 

173 


IF(NTAB(NK I.EQ.l ) GO TO 21 



INPT 

174 


ROTM(M)=POTNM(NK ) 



INPT 

175 


ZRCT ( M ) =AN SR ( 1) 



INPT 

176 


ZVIB(M) =ANSR ( 2) 



INPT 

177 


CVIBR(M)=ANSR(3) 



INPT 

178 


GO TC 18 



INPT 

179 

2 1 

CONTINUE 



INPT 

180 


OMEGA ( L,M)=ANSR( 1) 



INPT 

181 


ASTAR(L,M)=ANSR( 2) 



INPT 

182 


BSTAR(L ,M)=ANSR( 3) 



INPT 

183 


IF(J.EQ.JJ) GO TO 18 



INPT 

184 


CMEGA(M,L)=OMEGA(L,M) 



INPT 

185 


ASTAR < M»L )=ASTAR*(L,M) 



INPT 

186 


BSTAR ( M ,L )=BSTAR (L,M ) 



INPT 

187 


GO TC 18 



INPT 

188 





INPT 

189 


MAKE ESTIMATES FOR MISSING DATA 


INPT 

190 





INPT 

191 

22 

DO 27 1=1, NM 



INPT 

192 


IF (OMEGA ( I , T ) *NE .0 • ) GO TO 27 



INPT 

193 


<±INO( I ) 



INPT 

194 


IF ( X S C I ).LT.5.0E-6) GO TO 36 



INPT 

195 


IF (NODATA) GO TO 36 



INPT 

196 


WRITE! 6, 28) ‘ ( SUB ( K , L ) ,L = 1 , 3 ) 



INPT 

197 

28 

FCRMAT( 1HO,40X,45HNO TRANSPORT 

DATA WERE FOUND FOR THE SPECIES 

3A4INPT 

198 


1); 



INPT 

199 

36 

-CONT INUE 



INPT 

200 


ON EG A ( I vl ) = ALOG (320,*WM0L ( I )**4/TT**1.4) 

INPT 

201 


IF (OMEGA ( I, I ).LT.l. ) OMEGA(I, 

I ) 

- 1. 

INPT 

202 


AST AR ( 1 , 1 ) = 1.0 



INPT 

203 


BSTAR( 1,1 ) =1.0 



INPT 

204 


ii u u y u u n il y ii m i i :n ii u 


y it 
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c 


27 CONTINUE 
NVM=NM-1 
DC 23 1=1, NMM 
MH1 

DC 23 J = K » NM 

IF ( OMEGA ( I ,J)*NE.O. ) GO TO 26 

OMEGA II ,J)n IOMEGA! I, I )+0MEGA( J, J ) + 2. *SQRT ! OMEGA I 1,1 ) ♦OMEGA! j*'jn ) 
1/4.0 

ASTAR1I ,J IMASTAR4 1,11 + ASTAR (J, J) 1/2. 

B5TARI I ,J 1=<BSTAR! I ,1 )+BSTAR (J, J) )/2. 

26 OMEGA! J r I ) IOMEGA 1 1 , J ) 

AST AR ! J , I ) = ASTAR ( I , J ) 

BS T AR ! J , I ) = BSTARH,J) 

23 CONTINUE 

IF(FROZN) GO TO 96 

REWRITE REACTIONS TO ELIMINATE TRACE SPECIES 

LL=NLM+ 1 
NR=NM-NLM 

IF ( NR . EQ .0 > GO TO 96 
DO 30 K=1 , 17 
DO 30 LtI , 20 
30 STClK,LMO.O 
K*1 

DO 62 I =LL ,NM 
STC1K, I )»-1.0 
’J * I N 0 ! I ) 

DO 63 L=1,NLM 
63 STCIK, U = A(L,J) 
k*k*;i 

62 CONTINUE 
1*1 
NN* I 

81 If (XS(I 1.LT.1.0E-07) GO TO 97 
08 -I* HI 

NN = I 

Ifll-NM). 81,81,96 
97 L* 1 
J*1 

80 IflABSt S7CI J, I ) ) .GT.1.0E-06) GO TO 95 
DO 79 K=1,NM 
79 STCF!L,K) = STC«J^) 

L*L-U 

IFIJ.GE.NR1 GO TO 98 

J*J41 

GO TO 80 

95 COEFF*STC I J , 1 1 
DO 90 K=?1,NM 

90 STCQEFI K )=STC!J»KJ /COEFF 
GO TO 77 

84 U*J«1 

•IF I ABS! S7C1 J, I ) ) «LT . 1.0E-06) GO TO 89 
COEFF*STC! J,I) 

DO 87 K^1,NM 

87 S’TC I J,K ) = I STC I J , K ) /COEFF >- STCOE F ( K ) 

89 DO 85 K^1,NM 

85 STCF!L,K1=STC! J,K) 

L fc H:l 

77 If < J.LT.fsRI GO TO 84 
DO 82 1=1, NM 
DO 82 Jt 1 , NR 

82 STC! J, n = STCFI J,n 
I*NN 

NR=*L- 1 
GO TO 98 
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96 CONTINUE 
RETURN 
END 


INPT 271 
INPT 272 
INPT 273 


C 


C 


C 


SUBROUTINE OUT OUT 

OUT 

SETS UP AND WRITES OUTPUT FOR TRANSPORT PROPERTIES OUT 

OUT 

DOUBLE PRECISION G,X OUT 

INTEGER SUB,SPECIE,SPECE OUT 

REAL WONCON ,INTC ON, LEWIS, INTRNL OUT 

LOGICAL TRNSPT»FROZN* PUNCH, NODATA OUT 

LOGICAL TP»HPiSP»DETN» SHOCK ,RKT * EQL * VOL OUT 

OUT 

COMMON /POINTS/HSUM( 13) ,SSUM(13) ,CPR(13) ,OLVTP( 13) ,DLVPTU3) ,. OUT 

1 GAMMAS (13)»P(26)jT(52) , V( 13 )*PPPl 13 ) f WM ( 1 3 ) ,SONVEL( 13) ,TTT(13) , OUT 

2 VLM( 13) ,TCTN( 13) OUT 

COMMON /SPECES/C0EF(2*7f 100) ,S ( ICO ), HO ( 100 ) ,DELN < ICO ), DUMMY ( 100 ) , OUT 

1 ENl ICO, 13 1,ENLN( 100), A ( 10,100) ,SUB( 100,3 ) ,IUSE( 100 ) , TEMP (50, 2) OUT 
COMMON /MI SC/ENN , SUMN »TT,.S0»AT0M (3,101) »LLMT(10) ,BC ( 10) , BOP ( 10 , 2 ) , OUT 

1 TM, TL0W,TMIDiTHIGH,PP,CPSUM,0F,EQRAT’,FPCT,R,RR,HSUB0,AM(2) , OUT 

2 HPP<2) ,RH(2) ' f VM1N(2)»VPLS(2),WP<2),DATA(22),NAME(15,5), OUT 

3 ANUM(15,5 ),PECWT( 15) *ENTH(15> ,FAZ( 15) ,RTEMP(15 ) ,FOX ( 15 ) ,DENSt 15 ) ,OUT 

A RHOP*RMW( 15) * TLN*CR,OXF( 15) ,ENNL , TRACE ♦ LLMTS ( 10 ) , SBOP( 10^ 2 ) OUT 

COMMON /DOUBLE/ G(20,21)., X(20) OUT 

COMMON /INDX/IDEBUG,CONVG’,TP,HP,SP,ISV,NPP,MOLES,NP,NT,NPT,NLM, OUT 

1 NS,KMAT, I MAT* IQl*IOFjNOF»NOMIT,IP,NEWR»NSUB»NSUP,RKT ,DETN , SHOCK » OUT 

2 IONS,NC,NSERT,JSOL,JLIQ,KASE,NREAC,IC, JS1,V0L, I T »C A LCH,Nt S , LOGV , OUT 

3 ISUP* ISUB,ITNUM, ITM.INCDFZ, INCDEQ ,CPRF , I PP , SEOL , PCPLT OUT 

COMMON /PERF/PCP (22) ,VMOC( 13),SPIM(13) ,VACI (13) ,SUPAR(13), OUT 

1 SUP AR( 13 l » APP ( 1 3 ) , AE AT ( 13) ,CSTR ,EQL , FROZ ,'SSO* AREA , AWT ,NFZ , OUT 

2 APPL,ARATIO,ELN OUT 

COMMON /SAVED/ SL N(100)»IQS AiV E<, ENSAVE»ENLSAV»LSAVE,JSOLS, .It IQS* OUT 

1 LLt,LM,MAXNPVST0RE(52,16),XSI20),WM0L(20) ,IND(20),NM, OUT 

2 FIRSTP ,F IRSTV OUT 

COMMON /TRANS/ TEM < ICO, 20 ) , TABLESUOO, 20 ,3 ) , SPEC IE ( 100, 2*3 ) , OUT 

1 OMEGA( 20,20 )*ASTAR(20,20) ,BSTAR(20,20) ,CPRR(20) , OUT 

2 HRRT( 20 ) » ZROT ( 20 ) , ZV IB ( 20) *CVI BR( 20 ) *ROTM ( 20 ) » RELXTN(20 ).'V OUT 

3 ROTNM(80),STCF(17,20),STC(s17, 20) * STCOEF (20) ,ANS(15) , OUT 

A SPECE ( 2 * 3 ) »NTT( 100) ,NTAB( 100) , NR, N OUT 

COMMON /INTERP/ Z ( 20 ) , Y ( 20 , 3 ) , NTP , ANSR ( 3 ) OUT 

COMMON /CONTRL/TRNSPTiFROZN, PUNCH, NODATA OUT 


OUT 

EQUIVALENCE (ANS(l) ,VISC ), (ANS(2) ,MONCON), (ANS13) *INTCQN) OUT 
EQUIVALENCE (ANS(A) ,FRZCON) , (ANS(5) ,REACON), (ANS(6) ,EQCQN ) OUT 
EQUIVALENCE ( ANS (7) ,CPFROZ), (ANS(8) ,CPEQ ), (ANS(9) ,PRFROZ) OUT 
EQUIVALENCE ( ANS ( 10 ) , PREQ ), ( ANS ( 1 1 ) , LE W I S ), ( ANS ( 12 ) ,WTMOL ) OUT 
EQUIVALENCE ( ANS( 13) ,DENSTY) , ( ANS ( 1A ) , CPREAC ) , ( ANS ( 15 ) ,-ENTLPY ) OUT 


OUT 

ENTLPY = HSUB0*R OUT 

ENTRPY SC*R OUT 

FPC = lOO./CU+OF) OUT 

IF(N.NE.l) GO TO 13A OUT 

IF( ISV.EQ.0.AND.MAXNP.GT.12) GO TO 13A OUT 

IF(MAXNP.GT.51.0R. (LM.GT.52. AND.LM.LT.66) ) GO TO 13A OUT 

LM*1 OUT 

IFIMAXNP.LT. 1) MAXNP=0 OUT 

OUT 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

IA 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3A 

35 

36 

37 

38 

39 
AO 
A1 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
A9 

50 

51 

52 

53 
5A 
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134 CONTINUE 




OUT 

55 

ITT= TT ♦ 0.5 




OUT 

56 

;IF(MAXNP.GT.51.0R*LM.GT.52) GO TO 127 




OUT 

57 

IF(ISV.NE.O) GO TO 123 




OUT 

58 

IFIMAXNP.GT.12) GO TO 127 




OUT 

59 

GC TO 124 




OUT 

60 





OUT 

61 

STORE DATA 




OUT 

62 





OUT 

63 

123 IF(MAXNP.BQ.O) FIRSTP = PP 




OUT 

64 

IF(MAXNP.EQ.O) FIRSTV = VLM(l) 




OUT 

65 

STORE (MAXNP41V1)=TT 




OUT 

66 

DC 128 J=l,15 




OUT 

67 

12 8 STORE ( MAXNP«H J+T)= ANSI J ) 




OUT 

68 

MAXNP=MAXNP+1 




OUT 

69 

GO TO 132 




OUT 

70 

127 IF(LM.GT.MAXNP) MAXNP±0 




OUT 

71 

IF(LM.GT.MAXNP) GO TO 104 




OUT 

72 

129 LM= 1 




OUT 

73 

132 IF (LM.GT .MAXNP ) GO TO 137 




OUT 

74 

ITT = ST0RE(LM,l)-*!0.5 




OUT 

75 

TI*STORE(LM f l) 




OUT 

76 

DO 131 K= 1 ♦ 15 




OUT 

77 

131 ANS(K)=S70RE(LM,K+1) 




OUT 

78 

IF (LM.GT. 1) GO TO 104 




OUT 

79 

124 IF(N.NE.l) GO TO 104 




OUT 

80 

IF ( ISV.EO.O.AND.LM.NE.l) GO TO 104 




OUT 

81 





OUT 

82 

WRITE HEADING FOR DATA 




OUT 

83 





OUT 

84 

WRITE(6,1) 




OUT 

85 

1 FORMAT ( 1H1 ) 




OUT 

86 

IF(MAXNP.LT.13) FIRSTP = PP 




OUT 

87 

IF (MAXNP.LT. 13) FIRSTV - VLM(l) 




OUT 

88 

IF(DETN) GO TO 6 




OUT 

89 

IF ( SHOCK J GO TO 7 




OUT 

90 

IF(RKT) GO TO 8 




OUT 

91 

IF (VOL) GO TO 3 




OUT 

92 

IF ( TP 1 GO TO 2 




OUT 

93 

IF (HP) GO TO 4 




OUT 

94 

IF(SP) GO TO 5 




OUT 

95 

3 1F(TP) WRITE(6,16) 




OUT 


16 FORMAT( 1H0 » 38X . 55HTRANSPORT PROPERTIES 

AT 

ASSIGNED 

TEMPERATURE 

ANDOUT 

9 / 

1 VOLUME/) 




OUT 

98 

IF ( TP ) WRITE(6f20) OF , FPCt EQR AT .FIRSTV 




OUT 

99 

20 FORMAT ( lHOt 1 2X» 4H0/F=, F8. 4*4X , 1 3HPERCENT FUEL-, F8 .4,4X^ 

OUT 

100 

1 19HEQU IVALENCE RATIO= ,F7. 4 , 4X , 13HF I R ST 

V0LUME=F8 

. 2 , 

OUT 

101 

2 IX, 4HCC/G/ // ) 




OUT 

102 

IF (TP) GO TO 155 




OUT 

103 

IF(SP) WRITE(6»17) 




OUT 

104 

17 FORMAT ( 1H0»41X»51HTRANSP0RT PROPERTIES 

AT 

ASSIGNED 

ENTROPY AND 

VOLOUT 

105 

1UME/) 




OUT 

106 

IF(SP) GO TO 14 




OUT 

107 

WR I T E ( 6 , 1 4 1 ) 




OUT 

108 

141 FORMAT( 1H0 *46X, 39HTRANSP0RT PROPERTIES 

AT 

ASSIGNED 

VOLUME/) 

OUT 

109 

INTRNL = ENTLPY 




OUT 

110 

WR ITE ( 6 , 1 5 ) OF,FPC » EQRAT ►INTRNL 




OUT 

111 

15 FORMAT ( 1H0, 11X,4H0/F*, F8. 4, 4X,13H PERCENT 

FUEL=,F8 

. 4 , 4X » 

OUT 

112 

1 19HEQU IVALENCE RATIO= ,-F 7. 4 »4X »16H INTERNAL ENERGY 

=F8.2 , 

OUT 

113 

2 6H CAL/G ///) 




OUT 

114 

GC TO 155 




OUT 

115 

2 WR ITE ( 6 , I 40) 




OUT 

116 

14C FORMAT ( 1H0 ,37X , 57HTRANSPORT PROPERTIES 

AT 

ASSIGNED 

TEMPERATURE 

ANDOUT 

117 

1 PRESSURE/) 




OUT 

118 

13 WRITE(6,147) OF, FPC„EQRAT, FIRSTP 




OUT 

119 


112 
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147 FORMAT UH0,12X, 4H0/F*, F 8. 4 ,4X , 13HPERCENT FUEL* , F 8 . 4, AX , OUT 

1 19HEQUIVALENCE RATIO* ,.F7. 4 V 4X , 1 5HF I RST PRESSURE* F 6 . 3 * OUT 

•2 IX;, 3HATM/// ) OUT 

GO TO 155 OUT 

4 WRITE(6»142) N OUT 

142 FCRMAT< 1F0,44X,42HTRANSP0RT PROPERTIES AT ASSIGNED PRESSURES/) OUT 

WR ITE I 6 , 149 ) OF ,FPC ,-EQRAT:, ENTLPY OUT 

149 FORMAT (1HC,15X, 4H0/F*, F8. 4(,4X , 13HPERCENT FUEL=,F8.4,4Xi OUT 

1 19HEQU I VALENCE RATIO* ,F7,4,.4X »9HENTHALPY=F8. 1 , 6H CAL/G///) OUT 

GO TO 155 OUT 

5 WR ITE 16,143) OUT 

143 FORMAT ( IF 0*397 , 53HTRANSP0RT PROPERTIES AT ASSIGNED ENTROPY AND PREOUT 

1S5UR6/ ) OUT 

14 VI R ITE t 6*150 ) OF , FPC ,EQRATi, ENTRP Y OUT 

15 C FORMAT (1HC,15X, 4H0/F*, F8.4 ,4X , 13HPERCENT FUEL=,F8 .4,4X, OUT 

1 19HEQU I VALENCE RATIO* *F7. 4 , 4X , 8HENTR0PY = F 8 .4 , 1 1H C AL / ( 6 ) { K! ) / / / ) OU T 
GO TC 155 OUT 

6 WRITEI6*144) OUT 

144 FORMAT! 1FO,45X,41HTRANSPORT PROPERTIES OF THE DETONATED GAS/) OUT 

WRITE!6*I51) OF,FPC,EQRAT,FIRSTP OUT 

151 FORMAT ( 1 HO » 1 6X , 4HO/F*, F8*4»4X ,13H PERCENT FUEL* , F8 . 4 ,4X% OUT 

1 19HEQUI VALENCE RATIO* *F7. 4 , 4X ,26HF IRST DETONATION PRESSURE* OUT 

2 F8.3, 1X,3HATM/// ) OUT 

GO TO 155 OUT 

T IF (FROZN) GO TO 9 OUT 

WR ITE (6 ». 1 54 ! OUT 

154 FORMAT! 1H0 , 27X ,72HTRANSP0RT PROPERTIES OF THE SHOCKED GAS AS9UM I NGOUT 

1 EQUILIBRIUM COMPOSITION/) OUT 

GO TO 10 OUT 

5 WRITE (6*157) OUT 

157 FORMAT! 1H0 ,27X, 67HTRANSP0RT PROPERTIES OF THE SHOCKED GAS ASSUMINGOUT 

1 FROZEN COMPOSITION/) OUT 

1C WRITE!6,152) OF,FPC »EQRAT^PPP( 1 ) OUT 

152 FORMAT (1HO,10X, 4H0/F*, F8*4f.4X»13H PERCENT FUE L= , F 8 . 4 ,4X% OUT 

1 19HEQUI V ALENCE RATIO* ,.F 7. 4 , 4X , 21HF IR ST SHOCK PRESSuRE=F9.4* OUT 

2 l'XjSHATM/// ) OUT 

GO TO 155 OUT 

8 IF (FROZN) GO TO 11 0U T 

WRITE16*156) OUT 

156 FORMAT! 1H0 , 2 IX , 88HTR ANSPORT PROPERTIES OF ROCKET EXHAUST ASSUMING OUT 
1EQUILIBRIUM COMPOSITION DURING EXPANSION/) OUT 

GO TO 12 OUT 

11 WRITE(6*15e) OUT 

158 FORMAT! 1HO »24X, 83HTRAN9PORT PROPERTIES OF ROCKET EXHAUST ASSUMING OUT 

1FROZEN COMPOSITION DURING EXPANSION/) OUT 

IF! .NOT.EQL.AND.NFZ.NE. I ) WR ITE ( 6, 159 ). NFZ OUT 

159 FORMAT! 56 X , 18HFRGZEN AFTER POINT, 12 /) OUT 

12 WRITE(6,.153) OF , FPC , EQRAT , PPP(1 ) OUT 

153 FORMAT (1H0,15X, 4H0/F*, F8. 4»4X , 13HPERCENT FUEL* ♦ F 8 . 4, 4X OUT 

1 19HEQU I VALENCE RATIO* *F7. 4, 4X , 17HCHAMBER PRESSURE=F8. 3^ OUT 

2 IX » 3HATM/// ) OUT 

155 CONTINUE OUT 

IF ( .NOT .FROZN) GO TO 105 OUT 

WR ITE ( 6 , 1 06 ) OUT 


106 FORMAT (32X,4HTEMP,3X,9HVISC0SITY,2X,9HM0NAT0MIC,2X,8HINTERNAL,4X,0UT 


16HFROZEN,6X,2HCP,8X,7HPRANDTL/52X,4HCOND,7X,4HCOND,7X,4HCOND»9X, OUT 

24HFROZ,5X,4HFROZ//31X,5HDEG K ,.5X , 5HP0 1 SE , 5X , 27H CAL/ (CM) ( SFC)OUT 

1!K) , 5X * 10HC AL/ ( G) (K ) /// ) OUT 

WRITE!6*107) ITT,(ANS(I.UI=1,4),ANS(7),ANS(9) OUT 

107 FORMAT! 30X , 1 6 i F9 .0 , 5HX10-6 , F6.0, 5HX10-6,F6.0, 5HX10-6 ,F6.0, 5HX10-6, OUT 
1F8.4,F10.4) OUT 

GO TO 108 OUT 

105 WRITE(6,1 09 ) OUT 

109 FORMAT (2X,4HTEMP*3X,9HVISC0SITY,2X,9HM0NAT0MICt2X,8HlNTERNAL,4X, OUT 
16HFR0ZEN,5X,8HREACTI0N,3X^11HEQUILIBRIUM,3X,2HCP,9X,2HCP,7X, OUT 


27HPRAN0TL , 3X ,7HPR ANOTL , 4X , 5HLEW I S/22X , 4HC0ND , 7X , 4HC0ND, 7X , 4HC0ND , OUT 


120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 
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28X, 4HC0ND,8X,4HCCND,9X,4HFR0Z ,7X, 2HEQ , 6X ,4HFR0Z , 7X , 2HEQ»6X, 
A6HN UMBER/ /IX, 5 HD EG K , 5X , 5HP0 I SE , 5X , 

554H C AL / ! C M ) ( SEC) (K) ,7X , 

fcLOHCAL/ (G) (K ) » 7X , 2 5H DIMENSIONLESS ///) 

C 

C WRITE DATA 

C 

IFdEWIS.EO.O. ) GO TO 135 
WRITE! 6* I 10) ITT, IANS (I ) *1=1,11) 

110 FORMAT! 1 6 , F9 , 0 , 5HX 10-6 , F6. 0 , 5HX 10-6 , F6 . 0 , 5HX10-6 , F6 . 0 , 5HX10-6 , 
1F7.0,5HX10-6,F7.0» 5HX 10-6 , F 8 .4 , 4F10. 4 ) 

GO TO 108 

135 WRITE16*.]36) I TT , ! ANS ! I ) , I =1 , 10 > 

13 6 FORMAT! 1 6 , F9 . 0 , 5HX 10-6, F6. 0 ♦ 5HX 10-6 , F6. 0 , 5HX10-6 , F6 . 0 ,5HX10-6 , 
lF7.0t5HXl0-6,F7.0,5HX10-6,F8.4,3F10.4) 

GO TO 108 

104 IF(.NOT.RKT) GO TO 200 

IFdM.EQ.14.OR.LM.EQ.15) GO 70 201 
IF(RKT.AND.(LM.EC.27.0R.LM.EC.28)) GO TO 137 
IFtRKT.ANO. (LM.FQ.40.0R.LM.EC.4l ) ). GO TO 137 
IF(RKT.AND.!LM.EC.53.0R.LM.EC.54) ) GO TO 137 
GO TO 200 
201 Lll = LLL+:i 
GO TO ICC 

200 IF(LM-LLl) 112,111,112 

111 WRITE (6,113) 

113 FORMAT! 1H0 ) 

LLL = LLL + 5 

112 IF! .NOT.FROZN) GO TO 115 

WRITE! 6*1 16) ITT,(ANS(I ) rI=l»4),ANS!7)*ANS!9) 

116 FORMAT! 30X.I6 i F9 .0 , 3F 1 1 . 0 ♦ F 1 3.4 , F10 .4 ) 

GO TO 108 

115 IFdEWIS.EO.O.) GO TO 118 

WRITE(6,117) ITT * CANS [ I ) ,-1 = 1,11) 

117 FORMAT! I 6 , F9 . 0 , 3F 1 1 . 0 , 2F 12 . 0 , F 1 3 .4 , 4F 10. 4 >• 

GO TO 108 

118 WRITE!6,119) ITT, (ANS! I ) *1=1*10) 

119 FORMAT! 1 6 , F9 . 0 , 3F 1 1 .0 ♦ 2F 12 .0 ,F 13.4 , 3F 10 . 4 ) 

108 LM=LM+1 

IF! MAXNP.GT.O) GO TO 132 
133 CONTINUE 
C 

C PUNCHED CARDS 

C 

IF! .NOT. PUNCH) GO TO 137 

IF(RKT.Af*D.(LM.EC.15.GR.LM.EC.16M GO TO 137 
IF(RKT.AND.!LM,EQ.28.0R.LM.EC.29) ), GO TO 137 
IF (RKT.AND. (LM.EQ.4l.0R.LM.EC.42) ) GO TO 137 
IF(RKT. AND. ( LM.EQ . 54.0R . LM . EC. 55 U GO TO 137 
PUNCH 121, TT,PP,(ANS(I )t-I=i»13)»FPC 
121 FORMAT (F8.2,3X,E10.5,4F9.2,2Fil.2/F9.5,F10.5,3F9.5,F11.5,3X, 

1 E10.5,2>»F8.4) 

137 CONTINUE 
C 

RETURN 

END 


OUT 186 
OUT 187 
OUT 188 
OUT 189 
OUT 190 
OUT 191 
OUT 192 
OUT 193 
OUT 194 
OUT 195 
OUT 196 
OUT 197 
OUT 198 
OUT 199 
OUT 200 
OUT 201 
OUT 202 
OUT 203 
OUT 204 
OUT 205 
OUT 206 
OUT 207 
OUT 208 
OUT 209 
OUT 210 
OUT 211 
OUT 212 
OUT 213 
OUT 214 
OUT 215 
OUT 216 
OUT 217 
OUT 218 
OUT 219 
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OUT 221 
OUT 222 
OUT 223 
OUT 224 
OUT 225 
OUT 226 
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SUBROUTINE LGRNGE(TT) 

LGRN 

1 



LGRN 

2 


COMMON / INTER?/ Z 1 20 ) , Y ( 20 t 3 ) , NT P , ANSR ( 3 ) 

LGRN 

3 



LGRN 

4 


DIMENSION A (10) 

LGRN 

5 



LGRN 

6 


EQUIVALENCE ( XX *A U) ) , ( XO , A ( 2 1 1 , ( XI , A ( 3 ) ) , ( X2 , A ( 4 )) , { X3 , A I 5 1) , 

LGRN 

7 


l(Y0,At6M f (Y1»A(7) ) ♦(Y2»AI8) ) , ( Y3,A(9M 

LGRN 

8 



LGRN 

9 


IF ( TT-Z ( 2 ) 110,10,11 

LGRN 

10 

10 

MX=l 

LGRN 

11 


GO TO 51 

LGRN 

12 

11 

IF (TT-Z (NTP-1 1 ) 12,12,13 

LGRN 

13 

13 

MX=NTP-3 

LGRN 

14 


GO TC 51 

LGRN 

15 

12 

K*N TP- 1 

LGRN 

16 


DO 14 J A = 2 » K 

LGRN 

17 


IF ( TT-Z (JA 1115, 15, 14 

LGRN 

18 

15 

MX=?JA-2 

LGRN 

19 


GO TO 51 

LGRN 

20 

14 

CONTINUE 

LGRN 

21 

51 

X X = A L OG ( T T +! 1 * 0 1 

LGRN 

22 


DO 22 1=1,4 

LGRN 

23 


MX I = MX + I- 1 

LGRN 

24 

22 

AXI+:i ) = ALGG(Z(MXI 1 + 1.0) 

LGRN 

25 


81 = ( (XX-X1 )*l XX-X2 )*( XX-X3 > 1 / ( X0-X1 >/( X0-X2 1 / < X0-X3 1 

LGRN 

26 


B2=(<XX-X0)*( XX-X2 )*<XX-X3 1 ) / (X1-X01/IX1-X2) / (X1-X3 1 

LGRN 

27 


83= ( < XX-X01* ( XX-Xi )*( XX-X3 1 1 / ( X2-X0 1 / ( X2-X1 1 / ( X2-X3 ) 

LGRN 

28 


B4=( (XX-XO)’MXX-Xl 1 * ( XX-X2 1 1 /( X3-X0 1 / ( X3-X1 1 / ( X3-X2 1 

LGRN 

29 


DO 6 J= 1 , 3 

LGRN 

30 


DO 3 1=1,4 

LGRN 

31 


MX I = M X+ I - 1 

LGRN 

32 

3 

At I + 5) = AL0G(Y(MXI,J) + 1.0) 

LGRN 

33 


ANSWR = B1<Y0FB2*Y1 + B3*Y2+:B4*Y3 

LGRN 

34 

8 

ANSR(J)=EXP(AN$WR)-1*0 

LGRN 

35 


RETURN 

LGRN 

36 


END 

LGRN 

37 
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APPENDIX D 


SAMPLE PROBLEMS - INPUT AND OUTPUT 


Case 51 - Input 


ALl. 
NGU 
H 2. 


U CL1. C 4. 

U86955C .C31256S .C06415 


0 1 . 


ALH 

C2 

CH 

CQCL2 

CL02 

SCL 

S0CL2 

AL203IU 


AL20 

C 3 

CH2 

CS2 

MGS 

SCL2 

S02CL2 


72.06 
18.58 
9 .OC 
• 2C 
.16 


OMIT 
OMIT 
OMIT 
OMIT 
OMIT 
OMIT 
OMIT 
I NSEPT 
NAMELISTS 

SINPT2 K A S t - 5 1 # RKT * T »PSIA=T*P = 500tNODATA=T 

SRKI INP p CP=2.5,2. 75, 2, 3 .25, 3.5,4,10,34.02265 


AL202 
C CL 
CH4 
CLCN 
N 20 
S2CL2 
SO 3 


- 70690 . S298.15 

“2999. 08 2L 299 . 1 5 
C.O S298.15 

S290.15 
-68317.4 L298.15 


CL20 

NS 

SGCL 


100 * 1000, 10000 


Case 51 - Output 


REACTANTS 

N 1.0000 

C l.OOUO 

AL 1.0000 

Mb 1.0000 

H 2.0000 

OMI T 

OMt T 

OMIT 

UM1 T 

OMI T 

UMI T 

UHlT 

INSERT 

NAMELISTS 

iINPT? 

KASE - 


A. 0000 
1.8696 
- 0 . 

l.OuOu 

l.OOOu 

ALH 

C? 

CH 

CQCL2 
Cl 02 
SCL 
S0CL2 
AL2UJ ( L ) 


1.0000 l 
0.0313 S 
“ 0 . 

- 0 . 

- 0 . 

AL20 

C3 

CH2 

CS2 

MGS 

SCL2 

SD2CL2 


A. 0000 
0 .0084 
- 0 . 


AL 202 

CCL 

CH4 

CLCN 

N20 

S2CL2 

S03 


72.0600 
18.5800 
9.UOOO 
0.2000 
0. 1600 


-70690.00 S 
-2999.08 L 
0. S 

-o. s 

-68317.40 l 


298.150 
298.150 
298.15C 
298.150 
298. 15C 


5 • OOOL'OOOE + 02 


LRATIU- 

MIX 


5.0000uOuEf02 


ft OF 

0 . 


0 . 

F, EPCT 


TP 

RKT « 
IONS » 
TRNSP I * 
i ENO 
VO INPT2 


F, HP * 
Tt SHOCK = 
F, I DEBUG* 
f , FRUZN = 


ft SP 
F , DEIN 


TV 


F? OTTO * 
0, TRACE * 

ft PUNCH = F, NODAT A- 


vALUE GIVEN FUR OF, E 'RAT, FA, 3R FPC1 


r, uv 

F, CR 


ft EUNI TS= 
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SPECIES BEIYS CQNSIUEKEO IN 

THIS SYSTEM 







J12/60 

AL(S) 

J 12/65 

AL ( L ) 

J 12/65 

AL 

J 6/70 

A LCL 

J 9/64 

A LCL 2 

J 6/ TO 

ALCLilSI 

J 6/70 

ALCL3CL) 

J 6/70 

ALCL3 

J12/62 

4LN ( S) 

J 3/6/ 

ALN 

J fa/70 

4L0 

J 9/64 

ALOCL 

J l 2/67 

ALOH 

J 12/68 

AL02 

J 1 2/6 8 

ALG2H 

J 6/71' 

AL2CL6 

J 3/64 

AL203CS) 

J 3/64 

AL203CU 

J 3/61 

CCS) 

J 2/61 

C 

J12/68 

CCL2 

J 6/70 

CCL3 

J 3/61 

CH20 

J 6/69 

CH3 

J 6/ 6 fc 

CNN 

J12/70 

CN2 

J 9/65 

CO 

J 12/65 

COCL 

J 3/61 

COS 

J 9/65 

C02 

J12/6? 

CS 

J 1 2/68 

C2CL2 

J 3/67 

C2H 

J 3/61 

C2H2 

J 9/65 

C2F4 

L 5/72 

C2H6 

J 3/67 

C2N 

J 3/61 

C 2\Z 

J 9/66 

C 20 

J 6/68 

C 302 

J12/69 

C4 

J 12/69 

C5 

J 3/61 

CL 

J 6/61 

CLO 

J 9/65 

CL 2 

J 9/65 

H 

J 3/64 

HALO 

J 9/64 

HCL 

L 1 2/69 

HCN 

J12/70 

HCO 

J 12/70 

HNCO 

J 3/63 

HNO 

J 3/64 

H02 

J 3/61 

H2 

L 1 1/65 

H20C S) 

LI 1/65 

H20CL ) 

J 3/6 1 

H20 

L 2/69 

H2D2 

J12/65 

H2S 

J 9/62 

MGCS) 

J 9/6? 

MG ( L ) 

J 9/62 

MG 

J 3/66 

MGCL 

J12/65 

M&CL2CS) 

J 1 2/6 5 

MGCL2CL 

JI2/69 

HGCL2 

J12/66 

MGH 

J 3/64 

MGN 

J12/65 

MGOCS) 

J l 2/65 

MGOC L ) 

J 1 2/65 

MGQ 

J 6/67 

MGOH 

J 6/67 

MG02H2 

J12/71 

MGSCS) 

J 3/61 

N 

J12/70 

NCO 

J 1 2/7 1 

NH 

J 12/65 

NH2 

J 9/65 

NH3 

J 6/6 3 

NO 

J12/65 

NOCL 

J 9/64 

N02 

J l 2/65 

NQ2CL 

Jl 2/64 

MO 3 

J 9/65 

N2 

JI2/65 

N2H4 

.1 9/64 

N2U4 

J12/70 

M3 

J 6/62 

□ 

J12/T0 

OH 

J 9/65 

02 

J 6/61 

03 

J12/65 

SCSI 

*112/65 

Stl) 

J 6/71 

S 

J 6/6 7 

SH 

J 6/61 

SN 

J 6/71 

so 

J 6/61 

S02 

J 1 2/65 

S2 

SRKTINP 










eUL 

T, FROZ = 

* 








SliBAR = 

0* . 

0. 


0 . « 

0 . 

0 . 

t 

0. 

# 


o. , 

0. # 

0. 

* 

0 . • 

0 . 

0. 

* 

0. 

• 

SUPAR = 

0. » 

0. 


o. 1 

0 . 

0. 


0. 



o. « 

0. . 

0 . 


0. • 

0. 

0. 

• 

0. 

* 

PCP 

2 • 5000U00fc+00t 

2.7500000E+03, 

3.000u000fc+00, 

3 . 2500000E+00 

3 .500000 OE + 00 1 

4.000C0Q0C+00, 


i * 0000000 : *oi. 

3. 402 285 3E +01, 

i.ooooooof:+o2, 

1.0000000E+03 

l . OOOOOOOE + 04 , 

0. 

9 


0. , 

0. 

, 

0. * 

0. 

0. 

( 

0. 

# 


o. • 

0. 

• 

o. • 

0. 






NFZ a 1, 





EFFECT 

IVE FUEL 


FFFcCTIVE 

OXIDANT 


MIXTURE 

ENTHALPY 


HPPC2) 


HPPC 1) 


HSUBO 

(KG 

-MOL ) ( DEG 

K) /KG 

-0.97203 147E+02 


-0 • 302 7 792 3b +03 

-0. 2439442 7E *03 

KG- 

ATOMS/ KG 


BQPC 1*2) 


BOPC 1 

.ii 


BOC I ) 


N 


0. 



0 .85 1 1422DE-02 


0.61333306E-02 


H 


0.854O9148E-01 


0.34045688E-01 


0. 4839663 8E -01 


CL 


0. 



0.851 14220E-02 


0.61 333306E-02 


0 


0.19177246E-02 


0.34045688E-01 


0.25067738E-01 


C 


0. 45344 284E-01 


0. 



0 • 126691936-01 


S 


0. 38157215E-03 


0. 



0. 1 0661 1 26E-03 


AL 


0. 11938507E-J1 


0. 



0.33356188E-0Z 


MG 


0.1 7757250E-03 


0. 



0.49613757E-04 

PT 

N 

H 

CL 

0 

C 

S 

AL 

MS 


1 

-13.569 

-9.034 

-20.870 

-19.840 

-11.590 

-17.222 

-19.688 

-21.832 

12.000 

2 

-13.684 

-9.154 

-21.37? 

-20.772 

-11.369 

-16.985 

-21.017 

-22.434 

3.000 

PC/PT* 1.769626 T >= 

2483.75 







2 

-13.685 

-9.155 

-21.376 

-20.779 

-11.367 

-16.983 

-21.028 

-22.439 

2.000 

PC/PT= 1. 777163 T = 

2481.97 







3 

-13.751 

-9.225 

-21.709 

-21.419 

-11.185 

-16.859 

-21.952 

-22.866 

3.000 

4 

-13.769 

-9.244 

-21.806 

-21.609 

-11.127 

-16-827 

-22.228 

-22.994 

3.000 

4 

-13.779 

-9.254 

-21.789 

-21.545 

-11.179 

-16.842 

-22.136 

-22.951 

3.000 

5 

-13.823 

-9.297 

-21.833 

-21.545 

-11.266 

-16.854 

-22. 136 

-22.952 

3.000 

6 

-13.963 

-9.337 

-21.873 

-21 .546 

-11.346 

-16.866 

-22.135 

-22.953 

2.000 

7 

-13.900 

-9.374 

-21.910 

-21.546 

-11.420 

-16.078 

-22.135 

-22.953 

2.000 

7 

-13.888 

-9.363 

-21.931 

-21.624 

-11.356 

-16.858 

-22.271 

-23.006 

2.000 

8 

-13.913 

-9.390 

-22.070 

-21.900 

-11.271 

-16.313 

-22.745 

-23.193 

3.000 

9 

-14.086 

-9.571 

-23.143 

-24.101 

-10.505 

-16.605 

-26.540 

-24.720 

4.000 

10 

-14.323 

-9.814 

-24.931 

-2B.OOO 

-8.957 

-16.582 

-33.209 

-27.498 

4.000 

10 

-14.324 

-9.815 

-24.924 

-27.990 

-8.963 

-16.581 

-33.267 

-27.788 

3.000 

11 

-14.555 

-10.040 

-26.870 

-32.455 

-7.060 

-16.744 

-40.922 

-33.493 

4.000 

12 

-15.152 

-10.583 

-32.489 

-45.990 

-0.912 

-17.604 

-63.504 

-50.483 

5.000 

12 

-15.163 

-10.598 

-32.338 

-45.514 

-1.232 

-17.568 

-62.828 

-49.968 

3.000 

13 

-16.122 

-11.577 

-35.546 

-51.136 

-1.072 

-17.937 

-74.386 

-58.615 

5.000 
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theoretical rocket performance assuming equilibrium composition during expansion 


PC - 500.0 PSIA 

CASE NO. 51 


CHEMICAL FORMULA 


OXIDANT 

N 

1.00000 

H 

4.00000 

CL l. 00000 

□ 4.00000 

FUEL 

C 

L • 00000 

H 

1. 86955 

0 0. 03126 

S 0.00841 

FUEL 

AL 

1 .OOOGJ 





FUEL 

MG 

l.OOOOJ 

□ 

1.00000 



FUEL 

H 

2.00000 

0 

1.00000 




WT FRACTION 

ENERGY 

STATE 

TEMP 

DENS 1 1 

( SEE NOTE) 

CAL/ MOL 


DEG K 

G/CC 

l .00000 

-70690.000 

S 

248.15 

-0. 

0.66500 

-2999.082 

L 

298.15 

-0. 

0. 32212 

0. 

S 

298.15 

-0. 

0.00716 - 

143690.881 

s 

298.15 

-0. 

0.00573 

-68317.400 

L 

298.15 

-0. 


0/F* 2.5T»l PERCENT FUEL* 27.9A00 EQUIVALENCE RATIO* 1.9A79 REACTANT DENSITY* 0. 



CHAMBER 

THROAT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

PC/P 

1.0000 

1.7771 

2.5000 

2. 7500 

3.0000 

3.2500 

3.5000 

4.0000 

10.000 

P, ATM 

34.023 

19.145 

13.609 

12.372 

11.341 

10.469 

9. 7208 

8.5057 

3.4023 

T, DEG K 

2727 

2482 

2341 

2315 

2315 

2315 

2299 

2246 

1900 

RHO, G/CC 

3.5172-3 2. 

.1804-3 1 

.6450-3 1. 

.5123-3 

1.3862-3 1 

.2795-3 

1.1963-3 

i. 0720-3 5. 

►0741-4 1 

H • CAL/G 

-484.8 

-613.2 

-683.7 

-702. 6 

-719. B 

-735.7 

-750.4 

-776.3 

-938.5 

S, CAL/(G)(<] 

2.5272 

2.5272 

2.5272 

2.5272 

2.5272 

2.5272 

2. 5272 

2.527? 

2.5272 

M, MOL Hr 

23.135 

23.195 

23.218 

23.220 

23.219 

23.217 

23.219 

23.225 

23.249 

( OL V/QLP ) 1 

-1.00268 -] 

L. 00138 - 

1.00088 -] 

L. 00082 

-1.00085 - 

1.00088 

-1.DOQ85 

-1.00070 

L. 00015 - 

cdlv/dltih 

1.0326 

1.0284 

1.0186 

0. 

0. 

0. 

1.0183 

1.0153 

1.0036 

CP, CAL/IGMK) 

0.5694 

0.5219 

0.5008 

0. 

0. 

0. 

0.4987 

0.4912 

0.4579 

GAMMA (SI 

1.1968 

1.2081 

1.2143 

0.9992 

0.9992 

0.9991 

1.2152 

1.2178 

1.2313 

son vbi, m/sec 

1083.1 

1036.7 

1008.9 

910.1 

910.1 

910. 1 

1000.3 

989.5 

914.6 

MACH NUMBER 

D. 

1.000 

1.279 

1 .484 

1.541 

1.592 

1 .490 

1.579 

2.130 

AE/AT 


1.0000 

1.0651 

1.1070 

1.1626 

1.2191 

1.2674 

1.3500 

2.2862 

C star, ft/s-: 


5004 

5004 

5004 

5004 

5004 

5004 

5004 

500 A 

CF 


0.680 

0.R46 

0.885 

0.920 

0.950 

0.978 

1.024 

1.278 

IVAC»LB-SEC/L6 


193.2 

197.0 

200.3 

203 .3 

206.1 

208.3 

211.8 

234. 3 

ISP, LB-SEC/LB 


105.7 

131.6 

137.7 

143.0 

147.8 

152.0 

159.3 

198. 7 


EXIT EXIT 

3A.023 100 .00 

1.0000 0.3A02 

1504 1222 

.8841-4 7.8979-5 

-1115.9 -1741.0 

2.5272 2. 5272 

23.255 23.255 

l. 00001 -l. 00000 

1.0003 1.0000 

0.4490 0.4405 

1.2352 1.2407 

815.0 736.1 

2.820 3.417 

5.2207 11.384 

5004 5004 

1.507 1.649 

258.2 274.2 

234.3 256.5 


EXIT EXIT 

1000.00 10000.0 

0.0340 0.0034 

800 688 
1. 2086-5 1.4933-6 
-1435.5 -1576.9 

2.5272 2.5272 

23. 320 24.768 

-1.05592 -1.03953 
2.2603 1.9543 

2.8904 2.3412 

1.1046 1.1005 

561.3 504.1 

5.025 5.997 

66.308 500.74 

5004 ’ 5004 

1.849 1.982 

297.9 316.1 

267.6 308.3 


MOLE FRACTIONS 
ALCL 

0.00019 

0.00004 

0.00002 

O.OOOOi 

0.00001 

ALCL2 

0.00049 

0.00018 

0.00009 

0.00008 

J . 00009 

ALCL3 

0.00006 

0.00004 

0.00002 

0.00002 

0.00002 

ALOCL 

0.00008 

0.00002 

0.00001 

O.COOOl 

0.00001 

ALOH 

0.00001 

0.00000 

0.00000 

0.00000 

0.00000 

AL02H 

0.00002 

0. 00001 

0.00000 

0.00000 

0.00000 

AL203IS1 

0. 

0. 

0. 

0.00504 

0.01890 

AL203IU 

0.03674 

0.03710 

0.03721 

0.03218 

0.01832 

C<$> 

0. 

0. 

0. 

0. 

0. 

CO 

0.264L2 

0.26332 

0.26249 

0.26230 

0.26229 

cos 

0.00005 

0.00005 

0.00006 

0.00006 

0.00006 

C02 

0.01014 

0.01957 

0.02065 

0.020B7 

0. 02086 

cs 

0.00001 

0.00001 

0.00000 

0.00000 

0.00000 

CL 

0.00171 

0.00087 

0.00054 

0.00050 

0.00052 

H 

0.00597 

0.00295 

0.00180 

0.00166 

0.00173 

HCL 

0.13146 

0. 13342 

0.13410 

0.13419 

0.13416 

HCN 

0. 00 JO 1 

0.00000 

0.00000 

0.00000 

J. 00000 

HCO 

0.00001 

0.00000 

0.00000 

0.00000 

0.00000 

H2 

0.32172 

0.32472 

0.3263? 

0.32661 

0. 32659 

H20 

0.14672 

0.14552 

0.14458 

0.14438 

0.14435 

H2S 

0.00140 

0.00166 

0.00181 

0.00183 

0.00181 

MG 

0.00002 

0.00001 

0. 00000 

0.00000 

U. 00000 

MGCL 

0.00003 

0.00001 

0.00001 

0.00001 

0.00001 

MGCL2 

0.00102 

0.00107 

0*00109 

0.00109 

0.00109 

MGO f S ) 

0. 

0. 

0. 

0. 

0. 

MGOH 

0.00003 

0.00001 

0.00001 

0.00001 

0.00001 

MG02H2 

0.00001 

0.00000 

0.00000 

0.00000 

0.00000 

NH3 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

NO 

0.00003 

0.00001 

0.00000 

o.coooo 

0.00000 

N2 

0.06831 

0*06848 

0.06854 

0.06855 

0.06855 

0 

0.00001 

0.03000 

0.00000 

0.00000 

0.00000 

UH 

0.00071 

0.00027 

0.00013 

0.00012 

0.00012 

S 

0.00009 

0 • 00005 

0.00003 

0.00003 

0.00003 

SH 

0.00055 

0.00041 

0.00033 

0.00031 

0.00032 

SO 

0.00016 

0.00010 

0.00007 

0.00006 

0.00007 

S02 

0.00007 

0.00005 

0.00004 

0.00004 

0.00004 

$2 

0.00003 

0.00003 

0.00003 

0.00003 

0.00003 


0.00001 

O.OOOOI 

0.00001 

0.00000 

0. 

0. 

0. 

0. 

0.00008 

0.00007 

0.00005 

0.00000 

o.ocooo 

0. 

0 • 

0. 

0.00002 

0. 00002 

0.00002 

0.00000 

0.0 .000 

J. 

0. 

0. 

0.00001 

0.00001 

0.00000 

0.00000 

0. 

0. 

0. 

0. 

0.00000 

0.00000 

0.00000 

0. 

0. 

0. 

0 . 

0. 

0.00000 

0.00000 

0.00000 

0. 00000 

0. 

0. 

0. 

0. 

0.03166 

0.03723 

0.03725 

0.03733 

0.03733 

0.03730 

0.03730 

0.03730 

0.00556 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 .00266 

0.05872 

0.26227 

0.26215 

0.26172 

0.25750 

0.24736 

0. 23225 

0.17345 

0.07536 

0.00006 

0.00006 

0.00006 

0.00006 

0.00006 

0.00005 

0.00003 

0.00002 

0.02086 

0.02100 

0.02150 

0.02600 

C. 03613 

0.05103 

0.107L8 

0. 14921 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

a. ooooo 

0. 

0. 

0.00054 

0.00052 

0.00042 

n. oooo 8 

0.00000 

0.00000 

0. 

0. 

0.00180 

0.00172 

0.00139 

0.00024 

0.00001 

0.00000 

0 . 

0. 

0.13413 

0.13418 

0. 13437 

0.1349 7 

0. 13560 

0. 13702 

0.13716 

0. 13716 

0.00000 

0.00000 

0.00000 

O.OOOOC 

0.00000 

O.COOOO 

O.OOOOC 

0. 

0.00000 

0.00000 

0.00000 

0.00000 

0. 

0. 

0. 

0. 

0.32657 

0.32675 

0.32739 

0.33228 

0.34234 

0.35701 

0 .41045 

0.39641 

0.14433 

0.14419 

0.14374 

0.13949 

0.12910 

0.1 1331 

0.05974 

0.07377 

0.00178 

0.00179 

0.00185 

0.00216 

0.00231 

0.00233 

0.00235 

0.00237 

0.00001 

0.00000 

0.00000 

O.OOOOC 

0. 

C. 

0. 

0. 

0.00001 

0.00001 

0.00001 

O.OOOOC 

0.00000 

0. 

0. 

0. 

0.00109 

0.00109 

0.00109 

0.00111 

0.00083 

0.0 000 7 

0. OO0OO 

0. 


0. 

0. 

0. 

0.00028 

0.00104 

o.oom 

0.00111 

O.OOOOI 

0.00001 

0.00001 

0.00000 

0.00000 

0. 

0. 

0. 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0. 

0. 

0. 

0.00001 

0.00001 

0.00001 

0.00000 

0.00000 

0.00000 

0.00001 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0. 

0. 

0. 

0. 

0.06854 

0.06855 

0.06857 

0.06863 

C.06B6 3 

0.06850 

0.06857 

0.06858 

0.00000 

0.00000 

0.00000 

0. 

0. 

0. 

0. 

0. 

0.00013 

0.00012 

0.00009 

0.00001 

0.00000 

0. 

0 . 

0. 

0.00003 

0.00003 

0.00003 

0.00000 

0.00000 

J. 

0. 

0. 

0.0O033 

0.00033 

0.00029 

O.OOOIC 

O.OOOOI 

O.COOOO 

0. 

0. 

0.00007 

C. 00007 

0.00006 

0.00001 

0.00000 

0. 

0. 

0. 

0.00004 

0.00004 

0.00004 

0.00001 

0.00000 

0.0 0000 

0. 

0. 

0.00003 

0.00003 

0.00003 

0.00002 

0.00000 

O.DOOOO 

0. 

0. 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE MOLE FRACTIONS WERE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 


ALIS) ALILI AL 

C CCL2 CCL3 

C2H2 C7H4 C2H6 

CL2 HALO HNCO 

MGCL2IS1 MGCL2IL) HGH 

NH2 NOCL N02 

SIS! SIL) SN 


ALCL31S) ALCL3ILI 

CH2U CH3 

C2N C2N2 

HNO HD2 

MGN MGO(L) 

N02CL N03 


ALNISI ALN 

CNN CN2 

C20 C302 

H20ISI H20IL) 

MGO MGS(S) 

N2H4 N2Q4 


ALO 

COCL 

C4 

H202 

N 

N3 


NOTE. WEIGHT ENACTION OF FUEL IN TOTAL FULLS ANO OF OXIDANT IN TOTAL OXIDANTS 


AL02 

C2CL2 

CS 

MGISI 

NCO 

02 


AL2CL6 

C2H 

CLO 

MGIL) 

NH 

03 


0 <'“' 
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TRANSPORT PROPERTIES OF RDCXET tXHAUST ASSURING EQUILIBRIUM COMPOSITION DURING EXPANSION 



0/F 

- 2.5791 

PERCENT 

FULL- 27.9400 

equivalence ratio- i 

.9479 

CHAMBER 

PRESSURE* 34, 

>0 23 ATM 


TEMP 

VISCQS! TY 

MONATOMIC 

INTERNAL 

FROZIN 

REACTION 

CQUlLlflRI UM 

CP 

CP 

PRANDTL 

PRANOTL 

LEWIS 

DEG K 


CUND 

CUNl) 

CUND 

CONI) 

CUND 

FROZ 

EQ 

FROZ 

EQ 

NUMBER 

POISE 




,XI 







2727 

778. XIO- 

6 414. XiO- 

‘6 380. XiO 

-6 796. XI 0-6 

377. XIO- 

6 1 171. XI 0-6 

0.4965 

0.5992 

0.4859 

0.3978 

2.2923 

2482 

72 5. 

3B5. 

344. 

729. 

208. 

937. 

0.4903 

0.5528 

0.5880 

0 .4282 

2.2369 

2141 

695. 

369 . 

322. 

691. 

137. 

B?8. 

0.4862 

0.5303 

0.4892 

0 .445 6 

2.1 757 

2315 

690. 

366. 

318. 

684. 

128. 

812. 

0.4854 

0.5272 

0.4893 

0 . 448 0 

2.1613 

2 115 

690. 

366. 

318. 

684. 

133. 

818. 

0.4R54 

0.5290 

0.4893 

0 .4464 

2.1651 


2315 

690. 

366. 

318. 

685. 

138. 

823. 

0.4B54 

0.5307 

0.4893 

0 .4449 

2.1686 

2299 

68 7. 

364. 

316. 

660. 

135. 

814. 

0.4849 

0.5290 

0.4894 

0.4462 

2.1601 

2246 

675. 

358. 

300. 

666. 

111. 

777. 

0.4832 

0.5213 

0.4898 

0 .4527 

2.1205 

1900 

599. 

319. 

254. 

573. 

27. 

601 . 

0.4704 

0.4851 

0.4912 

0.4836 

1.5213 

1504 

507. 

274. 

194. 

468. 

11. 

4 r 9 . 

0.452? 

0.4677 

0.4896 

0 .4949 

0.6759 


1222 

437. 

241. 

152. 

393. 

18. 

411. 

0.4370 

0.4682 

0.4855 

0.4974 

0.6391 

eoo 

32 2. 

190. 

100. 

290. 

44. 

344. 

0.4133 

0. 5094 

0.4585 

0 .4906 

0.6528 

683 

287. 

174. 

90. 

264. 

56. 

320. 

0.4084 

0.5450 

0.4444 

0.4893 

0.6339 


THEORETICAL ROCXET PERFORMANCE ASSUMING FROZEN COMPOSITION DURING EXPANSION 


PC * 500. Q PSIA 

CASE NO. 51 








WT FRACTION 

ENERGY 

STATE 

T EMP 

DENSITY 


CHEMICAL 1 

FORMULA 


I SEE NOTE) 

CAL/MOL 


DEG K 

G/CC 

OXIDANT 

N 

L. 00000 

H 

4.00000 

CL 1.00000 0 4.00000 

l. 00000 

-70690.000 

S 

298.15 

-0. 

FUEL 

C 

1.00000 

H 

1.86955 

0 0.03126 S 0.00841 

0.66500 

-2999.082 

L 

298.15 

-0. 

FUEL 

AL 

1 .00000 




0.32212 

0. 

S 

298.15 

-0. 

FUEL 

MG 

1.00000 

U 

l. 00000 


0.00716 - 

*143690.881 

s 

298.15 

-0. 

FUEL 

H 

2 .00000 

0 

1.00000 


0.00573 

-68317.400 

L 

298.15 

-0. 



O/F- 2.5791 PERCENI FUEL- 27.9500 

EQUIVALENCE RATIO- 1.9579 

REACTANT DENSITY* 


CHAMBER 

THRUAT 

EXIT 



PC/P 

1.0000 

1.7885 

2.5000 



P, ATM 

34.023 

19.023 

13.609 



I. DEG K 

2727 

2451 

2303 



RHU, G/CC 

3.5172-3 

2.1887-3 1 

1.6664-3 



H, CAL/G 

-484.8 

-613.9 

-6B2.3 



S, CAL/IGJU) 

2.5272 

2.5272 

2.5272 



M, HUL wr 

23.135 

23.135 

23.135 



CP, CAL/ (OIK) 

0.4697 

0.4636 

0.4599 



GAMMA IS) 

1.2238 

1.2274 

i • 2296 



SON VEL, M/SEC 

1095.2 

1039.7 

1008.7 



MACH NUMBER 

0. 

1.000 

1.275 



AE/AT 


1.0000 

1.1683 



CSTAR , FT/SEC 


4970 

4970 



CF 


0.686 

0.849 



I VACtLB-SEC/LB 


192.4 

196.7 



ISP, LB-SFC/L8 


106.0 

131.1 




HOLE 

FRACTIONS 







ALCL 

0.00019 

ALCL2 

0.00049 

ALCL3 

0.00006 

ALOCL 

0.00008 

ALOH 

0.00001 

AL02H 

0.00002 

AL203IU 

0.03674 

CO 

0.26412 

COS 

0.00005 

C02 

0.01814 

cs 

0.00001 

CL 

0.00171 

H 

0.00597 

HCL 

0.13146 

HCN 

O.OOOOL 

HCO 

0.00001 

H2 

0.32172 

H2 0 

0.14672 

H2S 

0.00140 

MG 

0.00002 

MGCL 

0.00003 

MGCL2 

0.00102 

MGOH 

0.00003 

MG02H2 

0.00001 

NH3 

0.00001 

NU 

0.00003 

N2 

0.06831 

0 

0.00001 

OH 

0.00071 

S 

0.00009 

SH 

0.00055 

SO 

0.00016 

S02 

0.00007 

S2 

0.00003 






ADDITIONAL PRODUCTS WHICH WERE CUNSIOtRED BUT WHOSE MOLE FRACTIONS H-JRE LESS THAN 0.50000E-05 FOR ALL ASSIGNEO CONDITIONS 


ALIS) 

ALIL) 

AL 

ALCL3IS I 

ALCL3IL) 

ALNI SI 

ALN 

ALO 

AL 02 

AL2CL6 

AL203 ( S) 

CIS) 

C 

CCL2 

CCL3 

CH23 

CH3 

CNN 

CN2 

COOL 

C2CL2 

C2H 

C2H2 

C2H4 

C2H6 

C2N 

C2N2 

C20 

C302 

C4 

C5 

CLO 

CL2 

HALO 

HNCO 

HNO 

H02 

H20IS) 

H20< L 1 

H202 

MG(S> 

MG ID 

MGCL?( S ) 

MGCL2IL) 

MGH 

MGN 

MGOIS) 

MGOIU 

MGO 

MGS( S) 

N 

NCO 

NH 

NH2 

NOCL 

NO 2 

N02CL 

NOB 

N 2 HA 

N204 

N3 

U2 

□ 3 

SIS) 

SID 

SN 





NOTE. WEIGHT 

FRACIIUN OF 

FUEL IN TOTAL 

FUELS AND 

OF OXIDANT IN 

TOTAL OXIDANTS 






litANSPORT PROPERTIES OF 

ROCKET EXHAUST 

ASSUMING 

FROZEN COMPOSIT] 

[ON DURING 

EXPANSION 



0/E = 2.5T91 PERCENT FUEL- 27.9500 EQUIVALENCE RATIO- 1.9579 CHAMBER PRESSURE- 35.023 ATM 


TEMP 

VISCOSITY 

MONATOMIC 

CUNO 

INTERNAL 

COND 

FROZEN 

COND 

CP 

FROZ 

PRANDTL 

FRCZ 

DEG K 

POISE 

CAL/ICMMSECIIKI 

— 

CAL/IGl IK) 


2727 

2A51 

2303 

778. XIO- 
720. 

688. 

-6 414. XIO- 

384. 

367. 

•6 J8Q.X10-6 

33B. 

315. 

T95.X10- 

722. 

682. 

6 0.49S5 

0.4B93 
0.4848 

0.4859 

0.4878 

C.4891 
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Case 52 - Input 


REACT ANTS 


100 . 

100.0 


NAMELISTS 

♦INPT2 KASE=52,DETN= ? ,ERAT IC=T ,M [X= 1 , T=298 . 15, 500, P=l 


G298. 15 
G298.15 


Case 52 - Output 


REACTANTS 
H 2.0000 
U 2.0000 
NAMELISTS 

V1NPT2 

KASt = 


- 0 . 

-O. 


2.9815000E+02 

0 . 

0 . 


UOOOOOOObtOO 

0 . 

0 . 


“ 0 . 

-u. 


- 0 . 

- 0 . 


5.0000000E+02 


100.0000 

ioo.uooo 


298.150 

29Q.150 


l.0000000t*00 

0 . 


T, OF 

l • OOOOOOOE+OOt 


TP 

RKT 

IONS = 
TRNSPT= 
V END 


F, HP 

Ft SHOCK - 
F, IOEBUG" 
T, FRUZN = 


F, TV 
It OTTO * 
TRACF *= 

Ft NODATA a 


SPECIES BEING CONSIDERED IN 1HIS SYSTEM 


9/65 
3/61 
6/6 I 


J 3/64 
L 2/69 


H02 

H202 


F, UV 
F v C* 


J 3/61 
J 6/62 


. SO 

F, EUNI TS= 


Lil/65 

J12/70 


LI 1/65 
J 9/65 


ENTHALPY 

(KG-MQLHOES K) /KG 


KG-ATOMS/KG 


EFFECTIVE FUEL 
HPPI2 | 

0 . 

HOP! 1,2) 
0.99209300F*00 


EFFECTIVE OXIDANT 
HPP ( l ) 


80P( I, 1) 

0 . 

0.62502343E-01 


MIXTURE 

HSUBO 


BO € I > 

0. 11 101694E+00 
0. 55 5 08222 E -01 


DETONATION VELOCITY CALCULATIONS 


l -10.312 -15.661 fl 

T E ST • = 3611.38 
P/Pl 

0 0. 15000000fc*02 


T/T 1 

0. 12 112625E+02 


1 -10.228 


-10.224 

-10.327 


-15.583 

-15.692 


2.000 

6.00U 


T EST. = 3 T23.78 
P/Pl 

0 0. 1500U000E+02 


-10.434 

-10.441 

-10.441 


- 15 . T 90 
-15.789 
-15.786 


T/Tl 

0. 7457553l£*01 


3.000 

3.000 

2.000 
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case no. 


DETONATION PROPERTIES OF AN IDEAL REACTING GAS 


5? 


FUEL 

OXIDANT 

CHEMICAL FORMULA 
H 2.00000 
0 2.00000 


WT FRACTION 
I SEE NOTE) 
1.00000 
l.ooooo 

ENERGY STATE 

CAL/ MOL 
1405.408 G 

1455.140 G 

TEMP 
OEG k 
500.00 
500.00 

DENSITY 

G/CC 

- 0 . 

- 0 . 


0/F - 7.9364 

PERCENT FUEL- 11.1902 

EQUIVALENCE RATIO- 1.0000 REACTANT DENSITY- 

0 . 



UNBURNED GAS 


PI, ATM 
Tl.DEG K 
Hl.CAL/G 
Ml, MOL WT 
GAMMA1 

SON VEL,M/S;C 
BURNED GAS 


1.0000 1.0000 

208.15 500.00 

0. 118. AO 

12.010 12.010 

1.4015 1.3855 

537.8 602.5 


P, ATM 
T, DEG K 
RHO, G/CC 
H, CAL/G 
S, CAL/<G>I<> 


18.854 10.998 

3683 3607 

9.0261-4 5.2888-4 
679.5 760.9 

4.1589 4.2558 


M, MOL WT 14.474 
<OLV/DLP)f -1.08305 
( DL V/DLT) P 2.3791 
CP, CAL/<G)(K) 3.9365 
GAMMA IS) 1.1291 
SON DEL, M/SEC 1545.5 


14.235 
-1.08990 
2.51 76 
4.3702 
1.126B 
1540.9 


DETONATION PARAMETERS 


P/Pl 

T/Tl 

M/Ml 

KH0/RH01 
MACH NO. 

OET VEL, M/SEC 


18.844 10.998 
12.352 7.215 
1.2052 1.1852 
1.8386 1.8067 
5.2833 4.0199 
2841.5 2783.9 


MOLE FRACI IONS 


H 

H02 

H2 

H2D 

H202 

u 

QH 

02 


0.08139 0.09230 
0.00011 0.00009 
0.16475 0.16935 
0.53045 0.50628 
0.00002 0.00002 
0.03886 0.04365 
0.13496 0.13663 
0.04945 0.05169 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE MOLE FRACTIONS WcRE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 
H20IS) H20ILI 03 


NOTE. WEIGHT FRACTION OF FUEL IN TOTAL FULLS AND OF OXIDANT IN TOTAL OXIDANTS 


NO TRANSPORT DATA WAS FOUND FOR THE SPECIES H02 
NO TRANSPORT OATA WAS FOUND FOR THE SPECIES H202 


TEMP 


DEG K 


3683 


3607 


TRANSPORT PROPERTIES OF THE DETONATED GAS 


0/F = 7.9364 


PERCENT FUEL- 11.1902 EQUIVALENCE RATIO- 1.0000 


FIRST DETONATION PRESSURE- 18.844 ATM 


VISCOSITY MONATOMIC INFERNAL 
COND CUND 


FROZEN REACTION EQUILIBRIUM CP 
COND CONO COND FROZ 


CP 

EQ 


POISE 


CAL/ 1 CM ) ( SEC 1 1 K ) 


CAL/ IG) IK) 


PRANDTL PRANOTL LEWIS 
FROZ EQ NUMBER 

DIMENSIONLESS 


1 1 1 2 . X 10-6 707.x 10-6 


71 


X10-6 1426.X10-6 806B.X10-6 9494.X10-6 0.7662 3.9365 

NU TRANSPORT DATA WAS FOJND FOR THE SPECIES H02 


1091. 717. 


69 7. 


NO TRANSPORT DATA 
1414. 9051 


WAS FOUND FOR THE SPECIES H202 

10465. 0.7649 4.3702 


0.5979 0.4613 


0.5900 0.4554 


1.3 677 


1.3 582 
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Case 122 - Input 


REACTANTS 

N 2. H 8. C 2. 

50. 

1273A.8 

L298.15 F 

. 7861 

N 2. HA. 

50. 

12050. 

L298.15 F 1 

1.0036 

F 2. 

100. 

-3098. 

L 85.02 0 1 

L.505 

NAMELISTS 





JINPT2 KASe=l22.P*1000,PSIA*T,OF=T,MIX=2.5, 

RKT*T t 

NQOA T A=T 

S 


SRK T INP PCP=10,68.0A57 , SUS.AR- 10 • 5 , J, 2 , l . 5 , 

1.1,1.01 

,1.001, 



SUPAR= 1.0005, 1.0 5, 1.1, t. 5, 1.0,2,5,10, 100 i 

1200,500, 

1000 

% 



Case 122 - Output 


REACTANTS 
N 2.0000 H 

N 2.0000 H 

F 2.0000 

NAMELISTS 


6.0000 C 2.0000 
A. 0000 -0. 

- 0 . - 0 . 


50.0000 1273A.B0 L 298.150 F 0.78610 

50.0000 12050.00 L 298.150 F i. 00360 

100.0000 -3098.00 L 85.020 0 1.50500 


IINPT2 
KASE * 
T 


P 


PS l A * 

V 

KHO 


ERATIO= 

MIX 

TP 

RKT = 
IONS * 
TRNSP T ” 


122 » 

0. t 

0 . • 

0. t 

0. f 

0. r 

0. • 

0. , 

0 . * 

0. t 

l .00000006 ♦ 03 , 

0. f 

0. « 

0. 9 

0. 9 

T, MMHG = 

0. 9 

0. 9 

0. 9 

l.0000000t«-03, 

0. « 

0. 9 

0. 9 

0. 9 

F, OF 

2.5000000E+00, 

0. t 

0. « 

F * HP * 

T f SHUCK * 

F, I Ot BUG= 

T, FKOZN * 


0. 9 0. 

0. , 0. 

0. 9 0. 

0. 9 0. 

o. 9 0. 

0. 9 0. 

0. 9 0* 

0. 9 o. 

0. 9 0. 

0. 9 0. 

0. 9 0. 

0. 9 0. 

0. 9 0. 

0. 9 

F 9 NSQM = F, 

0. 9 0. 

0. 9 0. 


T 9 FPCT = F, FA « 

0 , 0 . 

C • 0. 

0. 9 0. 

F, SP * F* TV 

F 9 DETN = F t OTTO * 

0, TRACE * 0. 

F, PUNCH * F* NODATA* 



0 . 

0 . 

0. 

0. 

0. 

0 . 

0. 

0. 


SPECIES BEING CONSIDERED IN THIS SYSTEM 


J 3/61 

CIS) 

J 3/61 

c 

J 6/69 

CFA 

J12/67 

CH 

J 6/69 

CN 

J 6/66 

CNN 

J 6/69 

C2FA 

J 3/67 

C2H 

L 5/72 

C2H6 

J 3/67 

C2N 

Ji 2/69 

C5 

J 9/65 

F 

L l 2/69 

HCN 

J 1 2/6 8 

HF 

J 3/6 A 

NF2 

J 6/69 

NF3 

J 9/65 

N2 

J 12/65 

N2HA 


J 6/70 CF 
J 6/69 CH? 

J 1 2/70 CN2 
J12/67 C2HF 
J 3/61 C2N? 
J 6/69 FCN 
J 3/61 H2 
J 12/ 71 NH 
J 12/70 N3 


J 6/70 CF2 
J 6/69 CH3 
J12/69 C? 

J 3/6 L C2H2 
J12/69 C3 
JI2/60 F2 
J 3/61 N 
J12/65 NH2 


J 6/69 CF3 
J 3/fa 1 CHA 
J L 2/6 7 C2F2 
J 9/65 C2HA 
J l 2/69 CA 
J 9/65 H 
J 6/6 5 NF 
J 9/65 NH3 
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iRKTlNP 


EOL 


T, FRUZ 


SUBAK 


l.OOOOQOOE+Ol, 
i • 010 OOOOE+OOt 
D ♦ 


5 • OOOOOOOE+OO * 
1.001000DE+03* 


3. OOOOOOOE+OO* 

0 • * 


2. OOOOOOOE+OO, 

0. , 


1 • 5000000E+00, 1. lOOOOOOE+OO, 

0. * 0. v 


SUPAR 


1.0005000E+00, 

1. 05000006*03, 

1 . 1000003 E +00* 

l.SOOOOOOE+OO, 

1 . 8000000E + 00 * 

2. OOOOOOOE+OO 

5 .0000000 E+ 00* 

0. * 

l.OOOOOOOE+Ol, 

1 .0000000E+02* 

2.0000000E*02, 

5. OOOQOOOE+02 * 

i.oooooooe+03, 


PCP 


1 • OOUUUOOE+Oi 
D. 

3. 

D. 


6.8045700E+01* 0. 

0. t 0. 

0 . * 0 . 

0. « 0 • 


0. 

0. 

0. 


NFZ 


$ END 


OF * 2*500000 

EFFECTIVE FUEL 

ENTHALPY HPP(2> 

(KG-MOtMOEG K) /KG 3 . 14793078E+03 


EFFECTIVE OXIDANT 
HPP( 1) 

-0.41029893E+02 


MIXTURE 

HSUBO 

0.12958869E+02 


KG-ATQHS/KG 

BOPI 1,2) 

BOP { I « 1 ) 

N 

0.4784992BE-O1 

0. 

H 

J. L26968D2E+00 

0. 

c 

0.166390B5E-01 

0. 

F 

0. 

0.5263601 IE-01 


PT N H 

1 -13.886 -11.179 

2 -14.011 -11*466 

PC/P T= 1.750480 T * 

2 -14.030 -11.466 

PC/PT* l. 749150 T = 

3 -14.468 -12.543 

3 -14*513 -12.456 

4 -15.066 -13.883 

5 -13.762 -11.329 

5 -13.887 -11.181 

5 -13.887 -11.180 

5 -13.887 -11.180 

5 -13.887 -11.180 

5 -13.887 -11.180 

6 -13.889 -11.184 

6 -13.888 -11.184 

6 -13.383 -11.184 

7 -13.392 -11.190 

7 -13.892 -11.191 

7 -13.892 -11.191 

6 -13.098 -11.202 

8 -13.901 -11.207 

8 -13.901 -11.208 

8 -13.901 -11.208 

9 -13.910 -11.225 

9 -13.914 -11.234 

9 -13.915 -11.235 

9 -13.915 -11.235 

10 -13.950 -11.319 

10 -13.959 -11.321 

10 -13.959 -11.321 

11 -14.004 -11.411 

11 -14.003 -11.411 

1? -14.015 -11.433 

12 -14.020 -11.444 

12 -14.021 -11.447 

12 -14.021 -11.447 

13 -14.037 -11.481 

13 -14.037 -11.479 


C F 

-5.933 -19.837 10.000 
-5.420 -20.30B 4.000 
4180.90 

-5.421 -20.307 2.000 
4189.27 

-3.483 -21.918 5.000 
-4.065 -21.827 4.000 
-3.603 -23.502 5.000 
-4.452 -20.028 7.000 
-5.950 -19.840 5.000 
-5.951 -19*838 2.000 
-5.951 -19.838 2.000 
-5.951 -19.838 1.000 
-5.951 -19.838 1.000 
-5.945 -19.844 2.000 
-5.945 -19.844 2.000 
-5.945 -19.844 1.000 
-5.934 -19.054 2.000 
-5.931 -19.856 2.000 
-5.931 -19.856 2.000 
-5.910 -19.875 2.000 
-5.901 -19.883 2.000 
-5.900 -19.884 2.000 
-5.900 -19.884 1.000 
-5.866 -19.913 2.000 
-5.851 -19.928 2.000 
-5.849 -19.929 2.000 
-5.849 -19.929 1.000 
-5.692 -20.069 3.000 
-5.689 -20.071 2.000 
-5.689 -20.071 1.000 
-5.521 -20.219 3.000 
-5.522 -20.218 2.000 
-5.430 -20.255 3.000 
-5.461 -20.272 2.000 
-5.455 -20.277 2.000 
-5.455 -20.277 2.000 
-5.394 -20.331 3.000 
-5.396 -20.324 2.000 


BD( I ) 

0.13669979E-01 
0. 36848007E-01 
0.47540242E-02 
0.37597151E-01 
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THEORETICAL ROCKET PERFORMANCE ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION 


PC = LOC'O.O PSIA 
CASE NO. 122 







WT FRACTION 

ENERGY 

STATE 

TEMP 

DENSITY 


CHEMICAL 

FORMULA 


(SEE NOTE) 

CAL/MOL 


DEG K 

G/CC 

fUFL 

K 

2.00000 

H 8.00000 C 2. 

.00000 

0.50000 

12734-800 

L 

298.15 

0.7861 

FUEL 

N 

2 • OOOOU 

H 4.00000 


0,50000 

12050,000 

L 

298.15 

1.0036 

OXIDANT 

r 

2,00000 



1, 00000 

-3098.000 

L 

85.0? 

1.505C 



0/F 

= 2,5000 PERCENI 

FUEL- 28,5714 

EQUIVALENCE RATIO= 1.4859 REACTANT DENSITY- 

L.25 21 




CHAMBER 

THROAT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXI T 

EXI T 

EXIT 

EXIT 

EXIT 

EXIT 

PC/P 

1 .0000 

1.7491 

10.000 

60.046 

1.0021 

1.0084 

1.0241 

1.0586 

1.1181 

1.3245 

1.5759 

1.6895 

1.7946 

P t ATM 

68.04b 

38.902 

6.8046 

1.0000 

67.906 

67.480 

65.442 

64.279 

60.858 

51.376 

43. 178 

40.275 

37.916 

T, UEG K 

4464 

4189 

3502 

2902 

4463 

4460 

4452 

4435 

440 8 

4324 

4239 

420 6 

4177 

RHO, G/CC 

3.8190-3 2. 

► 3626-3 5, 

.1436-4 

9.4214-5 3, 

.8123-3 

3.7917-3 3. 

.7416-3 3, 

.6369-3 3, 

.4701-3 3< 

.0004-3 

2.5841-3 

2.4341-3 2. 

.3111-3 

H, CAL/G 

25.8 

-206.2 

-825.1 

-1381.0 

24.9 

22.2 

15.5 

1.3 

-22. 1 

-93. 1 

-l 64.3 

-192.4 

-216.4 

S, CAL/ ( G H K ) 

2,7398 

2.7398 

2.7398 

2. 7398 

2.7398 

2.7398 

2.7398 

2.7398 

2.7398 

2.7398 

2.7398 

2.7398 

2.7398 

M, MOL WT 

20.553 

20.877 

21.72? 

22.433 

20.559 

20.563 

20.572 

20.591 

20.623 

20.721 

20.819 

20.858 

20.891 

( OLV/DLP) T 

-1.03593 -1 

L. 029 32 - 

1.02251 

- 1. 00455 -1 

L. 03590 

-1.03583 -1 

L. 03564 -3 

[.03524 -I 

1.03458 -! 

L. 03255 

-1.03052 

-1.02971 -1 

L. 02902 

( ULV/ULT ) P 

1.5692 

1.4890 

1.5681 

1.1157 

1.5689 

1.5681 

1.5659 

1.5613 

1.5537 

1.5296 

1.5044 

1.4941 

1.4852 

CP, CAL/ 1 OIK) 

1,3378 

1.2425 

1.9126 

0.7232 

1.3375 

1.3365 

1. 3341 

1.3289 

1.3202 

1.2922 

1.2616 

1.2489 

1.2377 

GAMMA (S) 

1.1655 

1 .16 15 

1.1051 

1.1736 

1.1655 

1.1655 

1.1654 

1.1652 

1.1650 

1.1643 

1 .1637 

1. 16 36 

1.1635 

SUN VEL, M/SEC 

1460. 6 

1393.3 

1217.1 

1123.5 

1450.4 

1449.7 

1448.0 

1444.6 

1438.8 

1421.3 

1403.6 

1396. 7 

1390.7 

MACH NUMBER. 

0. 

1.000 

2.19? 

3.054 

0.059 

0.120 

0.203 

0.313 

0.440 

0.702 

0. 899 

0.967 

1.024 

AE/AT 


1.0000 

2.3984 

10.183 

10.000 

5.0000 

3.0000 

2.0000 

1.5000 

1.1000 

1.0 too 

1.0010 

1 .0005 

CSTAR, FT/S6C 


6872 

6872 

687? 

6872 

6872 

6872 

6872 

6872 

6872 

6872 

6872 

6872 

cr 


0.665 

1.274 

1.638 

0.041 

0.083 

0.140 

0.216 

0.302 

0.476 

0.602 

0.645 

0.680 

1 VACtLB-SCC/LR 


264.2 

32 3.3 

361.8 

2145.4 

1077.1 

655.5 

449. 7 

351.0 

279.1 

265.5 

264.3 

264.2 

ISP, LB-SEC/ Ul 


142.1 

2 72.1 

349.9 

8.8 

17.7 

29.9 

46.1 

64. 5 

101.7 

128.6 

137.8 

145.2 


MOLE FRACTIONS 


CIS) 

0. 

0. 

0.03126 

0.08883 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

C 

0.00253 

0.00183 

0.03046 

0.00002 

0.00253 

0.00252 

0.00250 

0.00246 

0.00238 

0.00217 

0. CO 195 

0.00187 

0.00180 

CF 

0.019B3 

0.01805 

0.03969 

0.00142 

0.01982 

0.01980 

0.01976 

0.01966 

0.01949 

0.01896 

0.01 840 

0.01817 

0.01796 

CF2 

0.00593 

0.006 36 

0.03601 

0.00253 

0.00593 

3.00594 

0.00595 

0.00597 

0.00601 

0.00613 

0.00627 

0.00633 

0.00639 

CF3 

0.00004 

0.00004 

0.00303 

0.00001 

0.00004 

0.00004 

0.00004 

0.00004 

0.00004 

0.00004 

0.0 0004 

0.00034 

0.00004 

CH 

0.00024 

0.000(5 

0.00002 

0.00000 

0.00024 

0.00024 

0.00024 

0.00023 

0.00022 

0.00019 

0.0C016 

0.00015 

0.00014 

CH2 

C. 00001 

0.00001 

O.OjOOO 

0. 

0.00001 

0.00001 

0.00001 

0.00001 

0.0000 l 

0.00001 

O.OOOOi 

0.00001 

0.00001 

CN 

0.01 306 

0.01186 

0.00640 

0.00080 

0.01306 

0.01305 

0.01301 

0.01295 

0. 0128 A 

0.01248 

0.01210 

0.01194 

0.01180 

LN2 

0.00001 

0.00000 

G. 00000 

0.00000 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

0. COOOO 

O.OOOOC 

0.00000 

C? 

0.00132 

0.00115 

0.00039 

0.00001 

0.00132 

0.00132 

0.00132 

0.00131 

0.00129 

0.00124 

C.C0119 

0.00116 

0.00114 

C2F2 

0.00002 

0.00002 

O.OuOOl 

0.00000 

0.00002 

0.00002 

0.00002 

0.03002 

0.00002 

0.00002 

0.00002 

0.00002 

0.00002 

C2H 

0.00899 

0. 00970 

0.0065? 

0.00027 

0.00899 

0.00900 

0.0090? 

0.00907 

0.00914 

0.00937 

0.00958 

0.00966 

0.00973 

C2HF 

C*. 00041 

0.00045 

0.00031 

0.00302 

0.00041 

0.00042 

0.00042 

0.00042 

0.00042 

0.00043 

0.00044 

0.00045 

0.00045 

C2H2 

0 . Qul 4b 

0.00161 

0.00109 

0.00004 

0.00149 

0.00149 

0.00149 

0.00150 

0.0015 l 

0.00155 

0.00159 

0.0016C 

0.00162 

C2N 

0.00535 

0.00571 

0.00387 

0.00020 

0. 00535 

0.00536 

0.00537 

0.00539 

0.00543 

0.00554 

0.00565 

0.00569 

0.00573 

C2N2 

L .00046 

0.00057 

C. 00064 

0.00007 

0.00046 

0.00046 

0.00047 

0.00047 

0.00048 

0.00051 

0.00055 

0.00056 

0.00057 

C3 

0.00179 

0.00253 

3.00301 

0.00008 

0.00179 

0.00180 

0.00181 

0.00185 

0.00192 

C. 00213 

0.00237 

0.00248 

0.00257 

C4 

C. 00001 

0.00002 

0.00002 

0.00000 

J. 00001 

0.00001 

0.0000 L 

0.00001 

0.00001 

0.00001 

0.0000 1 

0.00001 

0.00002 

C5 

C.OOOO l 

0 .00001 

0.00004 

0.00000 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

3.0 0001 

0.0003 1 

0.00001 

F 

Ci. 08241 

0.06744 

0.03443 

0.01527 

0.08236 

0.08218 

0.08176 

0.08084 

0.07935 

3.07476 

C. 07016 

0.06834 

0.06678 

PCN 

0.00169 

0.00158 

0.00118 

0.00D31 

0.00159 

0.00159 

0.00159 

0.00159 

0.00159 

0.00158 

0.30158 

0.00158 

0.00158 

F2 

0.00001 

0.00000 

0.00000 

0.00000 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

O.OCOOl 

0. COOOO 

0.00000 

0.00000 

H 

0.04706 

0.03628 

0.01447 

0.00308 

0.04702 

0.04689 

0.04659 

0.04593 

0.04485 

0.04155 

0.03823 

0.03693 

0.03581 

HCN 

0.01297 

0.01322 

0.01003 

0.00176 

0.01297 

0.01298 

0.31299 

0.01300 

0.01303 

0.01311 

C.O 1319 

0 .0132 l 

0. 01 323 

HF 

0.65661 

0.68449 

0.73343 

0.74638 

0.65672 

0.65704 

0.65784 

0.65953 

0.66232 

0.67085 

C. 67943 

0.68282 

0.68573 

H2 

0.01410 

0.01087 

0.00422 

0.00079 

0.01408 

0.01404 

0.01395 

0.01375 

0.01343 

0.01243 

0.0 L 145 

0.01106 

0.01073 

N 

0.00034 

0.00019 

0.00003 

0.00000 

0. 000 34 

0.00034 

0.00033 

0.00032 

0.00331 

0.00026 

0.00022 

0.00020 

0.00019 

NF 

0.00001 

0.00001 

0.00000 

0.00000 

0.00001 

0.03001 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

*JH 

0.00002 

0.000OI 

0. 00000 

0.00000 

0.00002 

0.00002 

0.00002 

0.00002 

0.00002 

0.00001 

0.00001 

0.0000 1 

0.00001 

N2 

0. 12337 

0.12583 

0.13244 

0.13810 

0.12338 

0.12341 

0.12347 

0.12362 

0. 12386 

0.12461 

0.12537 

0.12568 

0.12594 


ADDITIONAL PROOUCIS WHICH WERE CONSIDERED BUI WHOSE MOLE FRACTIONS WERE LESS THAN O.SOOOOE-OS FOR ALL ASSIGNED CONDITIONS 


CFA CH3 CHA CNN C2F4 C2H4 C2H6 NF2 NF3 NH2 

NH3 N2H4 N 3 

NOTE. WEIGHT FRACUON OF FUEL IN TOTAL FUELS AND OF OXIDANT IN TOTAL OXIDANTS 
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3 

*14.104 

-ll.t>22 

-5.136 

-20.556 

3.000 

3 

-14.104 

-11.621 

-5.* i9 

-20.553 

2.000 

A 

-14.138 

-11.697 

-5.001 

-20.672 

3.000 

5 

-14.308 

-12.093 

-4.291 

-21.270 

4.000 

5 

-14.297 

-12.071 

-4.331 

-21.237 

3.000 

5 

-14.297 

-t2. 07 1 

-4. 331 

-21.236 

1.000 

6 

-14.392 

-12. 323 

-3.880 

-21.604 

3.000 

6 

-14.411 

-12.288 

-4. 123 

-21.567 

3.000 

6 

-14.383 

-12.238 

-4. 140 

-21.490 

3.000 

6 

-14.380 

-12.238 

-4.140 

-21.439 

2.000 

7 

-14.458 

-12.365 

-4.097 

-21.687 

3.000 

7 

-14.430 

-12.318 

-4. in 

-21.615 

3.000 

7 

-14.430 

-12.310 

-4. 113 

-21.615 

2.000 

fa 

-14.840 

-13.108 

-3.84? 

-22.744 

5.000 

8 

-14.818 

-13. J55 

-3.860 

-22.677 

3.000 

8 

-14.818 

-13.055 

-3.860 

-22.677 

1.000 

9 

-15.001 

-13.859 

-3.610 

-23.485 

4.000 

9 

-15.061 

-13.855 

-3.611 

-23.482 

2.000 

10 

-15.575 

-18.484 

-2.366 

-28.630 

9.000 

10 

-15.503 

-18.553 

-2. 339 

-28.853 

7.000 

11 

-15.726 

-19.815 

-1.909 

-33.294 

3.000 

11 

-15.71 7 

-19.735 

-1.933 

-32.997 

1.000 

12 

-15.91? 

-21.559 

-1.477 

-40.206 

2.000 

12 

-15.923 

-21.664 

-1.456 

-40.645 

1.000 

13 

-16.126 

-23.640 

-1.141 

-49.285 

2.000 

13 

-16.1 13 

-23.512 

-1.157 

-48.706 

1.000 


THEORETICAL ROCKET PERFORMANCE ASSUMING EUUILIBRIJM COMPOSITION DURING EXPANSION 

PC * 1000.0 PSIA 

CASE NO. 12 2 

WT FRACTION ENERGY STATE TEMP DENSITY 

CHEMICAL FORMULA CSEE NOTE) CAL/MOL DEG K G/CC 

FUEL N 

FUEL N 

UXIDANT F 


PC/P 
P, ATM 
T, DEG K 
RHO. G/CC 
Hi CAL/G 

S, CAL/ (OIK) 2.739B 2.7398 2.7398 2.7393 2.7398 2.7398 2.7398 2.7398 2.7398 2.7398 2.7398 2.7398 2.7398 


M, MOL WT 

20.558 

20.877 

21.J31 

21.102 

21.410 

21.541 

21 .609 

22.131 

22.427 

22.793 

22.794 

22.794 

22.795 

t DLV/DLP) T 

-1.03593 -! 

1.02932 - 

1.02614 

-1.02468 

-1.01853 - 

1.02754 - 

1.02563 - 

1.01183 - 

1.00469 - 

1.00004 

-l.COOOO - 

l. 00000 

-1.00000 

(ULV/DLTI P 

1.5692 

1.4890 

1.4465 

1.4262 

1.3332 

L • 6866 

1.6420 

1.3053 

1.1195 

1.0014 

1.0000 

1.0000 

1.0000 

CP, CAL/IGMK) 

1.3378 

1.2425 

1.1874 

1.1600 

1.0258 

2.2124 

2. 1000 

1.2323 

0.7338 

0. 3809 

0.3626 

0.3448 

0.3352 

GAMMA IS) 

1.1655 

1.1635 

1.1633 

1.1634 

1.1659 

1.1002 

1.1019 

1.1265 

1.1719 

1.2978 

1 . 3166 

1.3384 

1.3515 

SON VEL , M/SEC 

1450.6 

1393.3 

1365.6 

1352.7 

1295.9 

1237.8 

1230.1 

1 168.2 

1124.6 

877. 1 

790.5 

682.8 

607.2 

MACH NUMBER 

0. 

1.000 

1.241 

1.343 

1.756 

1.973 

2.060 

2.658 

3.044 

4.674 

5. 339 

6. 356 

7.259 

AE/AT 


1.0000 

1.0500 

1.1000 

1.5000 

1.8000 

2.0000 

5.0000 

10.000 

100.00 

200.00 

500.00 

1000.00 

CSTAR, FT/SEC 


68 72 

6872 

6872 

6872 

6872 

6872 

6872 

6872 

6872 

6872 

6872 

6872 

CF 


0.665 

0.809 

0.867 

1.086 

1. 169 

L.2L0 

1.482 

1.634 

1.957 

2.015 

2.072 

2.104 

l VAC, LB- SEC/ LB 


2 64.2 

259.3 

273.6 

296.6 

307.7 

313.7 

356. 4 

381. 2 

432.8 

441.8 

450.7 

455.7 

ISP, LB-SEC/ LB 


142.1 

172.8 

185.3 

232.0 

249.7 

258.4 

3L6.6 

349. 1 

418.0 

4 30. 3 

442.6 

449.4 


MOLE FRACf 
CIS) 

I DNS 

0 . 

0. 

0. 

0. 

0. 

0.00883 

0.01766 

0.07021 

0.08855 

0.09425 

0.09428 

0.09428 

0.09428 

C 

0.00253 

0.00183 

0.00151 

O.OOL37 

0.00081 

0.00064 

0.00057 

0.00014 

0.0000? 

0. 

0. 

0. 

0. 

CF 

0.01983 

0.01805 

0.01706 

0.01657 

0.01414 

0.01247 

0.01139 

0.00442 

0.00148 

0.00000 

0. 

0. 

0. 

CF2 

0.00593 

0.00636 

0.J0665 

0.00680 

0.00772 

0.00742 

0.00686 

0.00361 

0.00253 

0.00006 

O.COOOO 

0. 

0. 

CP 3 

0.00004 

0.00004 

0.00004 

0.00004 

0.00004 

0.00004 

0.00003 

0.03001 

0.00001 

0.00000 

0 . oouoo 

0. 

0. 

CF4 

0.00000 

0.00000 

0.00000 

0.00030 

0.00000 

0.00000 

0.00003 

0.00000 

0.00000 

0.00382 

0.00387 

0.00387 

0.00387 

CH 

0.00024 

0.00015 

0.00011 

0.00009 

0.00004 

0.00003 

0.00003 

0.00000 

0.00000 

0. 

0. 

0. 

0. 

CH2 

0.00001 

0.00001 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

o.uoooo 

0.00000 

0. 

C. 

0. 

0. 

CN 

0.01306 

0.01186 

0.01117 

0.01083 

0.00910 

0.00806 

0.00743 

0.00295 

0.00084 

0. 

0. 

0. 

0. 

CN2 

O.UOOOl 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

1. 

0. 

0. 

0. 

C2 

0.00132 

0.00115 

0.00105 

0.00100 

U. 00076 

0.00061 

0.00052 

0.00009 

0.00001 


c. 

0. 

0. 

C2F2 

0.00002 

6.00002 

0.00002 

0. 00002 

J. 00002 

0.00002 

0.30002 

0.00000 

0.00000 

0. 

0. 

0. 

0. 

C2H 

0. 00899 

0 .00970 

0.0J998 

0.01009 

0.01033 

0.00923 

0.008 l 5 

0.00204 

0.00029 

0. 

3. 

0. 

0. 

C2HF 

0.00041 

0 • 00045 

0.00047 

0.00048 

0.000 52 

0.00047 

0.00040 

O.OOOiO 

0.00002 

0. 

0. 

0. 

0. 

C2H2 

0.00143 

0.00161 

0.00167 

0.00170 

0.00179 

0.00160 

0.00139 

0.33033 

0.00005 

0. 

C. 

0. 

0. 

C2N 

0. 00535 

0 .00571 

0.00587 

0.00594 

0.006 15 

0.00551 

0.00486 

0.0012* 

0.0002? 

0. 

0. 

0. 

0. 

C2N2 

0.00046 

0.00057 

0.00064 

0.00067 

0.00089 

0.00086 

0.00077 

0.00026 

0.00008 

0. 

c. 

0. 

0. 

C 3 

0.00179 

0.00253 

0.00300 

0.00324 

0. 00457 

0.00439 

0.00384 

0.0008? 

0.00009 

0. 

0. 

0. 

0. 

C4 

0*00001 

0.90002 

0.00002 

0. 0000 2 

O.OOOOi 

0.00003 

0.00002 

0.00000 

0.00000 

0. 

0. 

0 . 

0. 

C5 

O.OOOOi 

0.00001 

0.00002 

0.00003 

O.OOGOb 

0.00006 

G. 00005 

0.00001 

3.00000 

J. 


0. 

0. 

E 

0.03241 

0.06744 

0.J6G21 

0.06688 

0.04236 

0 .03801 

0.03670 

0.02478 

0.01549 

0.00003 

0.00000 

0 . 

0. 

FCN 

0.00159 

0.00158 

0.00158 

0.00158 

0.00160 

0.00149 

0.00136 

0.00062 

0.00331 

0.00000 

0. 

0. 

0. 

F2 

0.00001 

0.00000 

0.00000 

0. 00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0. 

0. 

0. 

0. 

11 

0.04706 

0.03628 

0.03112 

0.02877 

0.01888 

0.01629 

U. 01564 

O.OOR89 

0.0032 i 

C. 00000 

0. 

0 . 

0. 

HCN 

0.01297 

0.01322 

0.01329 

0.01331 

U.Ol 324 

0.01233 

0.01145 

0.0052* 

0.0010 J 

U. 00000 

0. OOuOO 

0. 

0. 

nF 

0.65661 

0.68449 

0.69794 

0.71)412 

u. 73071 

0. 73527 

0.73436 

0.73644 

0.74610 

0.76072 

C. 76074 

0.7607* 

0. 76074 

H2 

0.01410 

0.01087 

0.00935 

0.00866 

0.00579 

0.0u495 

0.00468 

0.00242 

0.00062 

o.ouooo 

8. oouoo 

0. 

0. 

N 

0.00034 

0.00019 

0.00014 

3.Q0012 

U. 00006 

0.00004 

0.30004 

0.00001 

0.00000 

0. 

J. 

0. 

0. 

NF 

0.00 JL’l 

0 .1)0001 

0.00000 

0.00000 

J. 00000 

O.OuOOO 

G.JOOOO 

0.00030 

0.00000 

0. 

c. 

0. 

0. 

NH 

0.00002 

0.00001 

O.ODOOl 

0.00000 

J. 00000 

0.00000 

0.00000 

0.00000 

0.00000 

0. 

0. 

0 . 

0. 

N2 

0.12337 

0. 125 8 3 

0.12703 

0.12767 

J.13U37 

0.13135 

0.13175 

0.L3535 

0.13803 

0. 14111 

0. L4111 

0.141 1 1 

0.14111 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED RUT WHOSt MOLfc FRACTIONS WERE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 


CM3 CH4 CNN C2F4 C2H4 C2H6 NF2 NF 3 NH2 NH3 

N2H4 N3 

NOTE. WEIGHT FRACTION OF FUEL IN TUTAL FUELS AND OF UXIDANT IN TOTAL OXIDANTS ..j *■ 


2.00000 

H 8. 00000 C 2.00000 


0.50000 

12734.800 

L 

298.15 

0.7861 

2.00000 

H 4. OOOO'J 


0.50000 

12050.000 

L 

29 8.15 

1.0036 

2.00000 



1.00000 

-3098.000 

L 

85.02 

1.5050 

U/F = 

2*5330 PERCENT FUEL * 28.5714 

tauiVALtNCE mho* 

1.4859 

REACTANT OENSITY* 

1.2521 



CHAMBER 

THROAT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXI T 

EXIT 

EXIT 

ex i r 

EXIT 

1.0300 

1.7491 

2.3253 

2.6616 

4.9633 

6.6292 

7. 7306 

26.846 

66.440 

1448.42 

3724.92 

13047.0 

33844.8 

68.046 

38.902 

29.263 

25.566 

13.710 

10.265 

0.8021 

2.5347 

1.0242 

0.0470 

0. 0183 

0.0052 

0.0020 

4464 

4189 

4055 

3992 

3709 

3608 

3569 

3224 

291 1 

162 5 

1301 

95 5 

748 

3.8190-3 2. 

.3626-3 I 

t .84 97—3 

1.6469-3 9 . 

.6438-4 

7.4680-4 6 • 

,4949-4 

2.1203-4 

9.6152-5 

8.0299-6 

3 .8999-6 

1.5169-6 

7.4686-7 

25.8 

-206.2 

-317.5 

-368.8 

-593.1 

-690.8 

-741.7 

-1126.* 

-1374. 3 

-1982.6 

-2102.7 

-2225. 1 

-2295.6 


II II II M 11 U M M 


M II M M M M M M 


L L' 

\ 
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IKANSPURT PROPERTIES OF ROCKET EXHAUST ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION 


O/F = 2. 5330 


PERCENT FUEL" 20.5714 EQUIVALENCE RA TI 0= 1.4059 CHAMBER PRESSURE* 68-046 ATM 


TEMP 

VISCOSITY MONA TOM I C 

INTERVAL 

FROZEN 

REACTION 

COOK IBRIUH 

CP 


CONI) 

COMO 

CUND 

CUNU 

COND 

FROZ 


CP PRANDTL PRANDTL LEWIS 

EQ FROZ EQ NUMBER 


DEG K POISE 


CAL/ (CM ) ( SEC H K ) 


CAL/ I G) (K) 


DIMENSIONLESS 


4464 

1431.X 10- 6 

580 • X 1 3-6 

354.X10-6 

935 . X 10-6 

2979.X 10-6 

3914 .XI 0-6 

0.4281 

1. 3369 

0.6556 

0 .4889 

1.5016 

4189 

1373. 

5 36. 

338. 

874. 

2606. 

3480. 

0.4251 

1.2416 

0.6676 

0.4898 

1.5520 

3502 

1 219. 

445. 

288. 

733. 

1558. 

22 92. 

0.4162 

0.9554 

0.6918 

0 .508? 

1 • 6400 

2902 

1 072. 

382. 

233. 

615. 

619. 

1235. 

0.4057 

0.6440 

0.7065 

0 .5590 

1.7130 

4463 

1431. 

580. 

354. 

934. 

2978. 

3912. 

0.4281 

1.3365 

0.6556 

0 .4809 

1.5018 


4460* 

1430. 

579. 

354. 

934. 

2974. 

3908. 

0.4280 

1.3356 

0.6557 

0.4889 

1. 5024 

4452 

1429. 

578. 

354. 

932. 

2964. 

3 896. 

0.4279 

1.3332 

0.6561 

0 .4889 

1.5038 

4435 

1425. 

573. 

353. 

928. 

2944. 

3B72. 

0.4278 

1.3280 

0.6568 

0.4889 

1.5068 

4408 

1419. 

371. 

331. 

922. 

2909. 

38 31. 

0.4275 

1.3193 

0.6580 

0 .4889 

1.5118 

4324 

1402. 

558. 

346. 

904. 

2798. 

3701. 

0.4266 

1.2913 

0.6617 

0.4890 

1.5272 

4239 

1 384. 

344 . 

341. 

885. 

26 79. 

3564. 

0.4256 

1.2607 

0.6654 

0 .4094 

1.5 428 

4206 

1 37 7 . 

539. 

339. 

878. 

2631 . 

3509. 

0.4253 

1.2400 

0.6669 

0. 489 7 

1.5490 

4177 

1370. 

334. 

337. 

872. 

2588. 

3460. 

0.4249 

1.2368 

0.6681 

0.4899 

1.5 543 

4053 

1 344. 

516. 

329. 

843. 

2399. 

3244. 

0.4236 

1.1865 

0.6735 

0 .4914 

1.5762 

3992 

1330. 

50b. 

325. 

832. 

2297. 

3129. 

0.4228 

1.1590 

0.6762 

0.4926 

1.5869 

3709 

1265. 

465. 

306. 

772. 

1806. 

2577. 

0.4193 

1.0244 

0.6877 

0.5029 

1.6221 

3603 

1242. 

454. 

298. 

732. 

1661. 

2413. 

0.4179 

0.9848 

0.6905 

0 .5071 

1.6283 

3369 

1234. 

451. 

294. 

745. 

1676. 

2372. 

0.4173 

0.9751 

0.6909 

0.507 3 

1.6 326 

3224 

1 154. 

418. 

26 3. 

681 • 

1162. 

1842. 

0.4116 

0.8306 

0.6978 

0.5203 

1 .6763 

2911 

1074. 

383. 

234. 

617. 

634. 

1231. 

0.4058 

0.6492 

0.7062 

0 .5572 

1.7133 

1623 

673. 

238. 

103. 

340. 

3. 

343. 

0.3706 

0.3740 

0.7386 

0.7395 

0.6626 

1 301 

561. 

196. 

68. 

264. 

0. 

264. 

0.3570 

0.3571 

0, 7577 

0.7577 

0.8896 

955 

424. 

148. 

35. 

183. 

0. 

183. 

0.3403 

0.3403 

0.7910 

0.791 0 


748 

336. 

1 17. 

19* 

136. 

0. 

136. 

0.3324 

0. 3324 

0.0214 

0 .8214 



TMtU^ET I CAL ROCKET PERFORMANCE ASSUMING FROZEN CUMP0S1T10N DURING EXPANSION 


PC = 1000.0 PSIA 

CASE NO. 122 

CHEMICAL FORMULA 

FUEL N 2.000v«v H 0.00000 C 2.00000 

FUEL N 2 . 0000 J H 4.00000 

JXIDVNT F 2.O00C* 


WT FRACTION 
(SEE NOTE) 
0.50000 
0.50000 
I. 00000 


ENERGY STATE 
CAL/ MOL 

12734.800 L 
12050.000 L 
-3098.000 L 


TEMP DENSITY 
DEG K G/CC 
298.15 C.7861 

2)8.15 1.0036 

85.0? L .505 0 


O/F" 2.5DD0 PERCENT FUEL* 28.5714 


EQUIVALENCE RATIO* 1.4859 REACTANT DENSITY* 1.2^21 


PC/P 
P, ATM 
I , DEG K 
RHO, G/CC 
M* CAL/G 


CHAMBF.R THROAT EXIT 

1 • 0000 1.8302 10.000 

68.046 3 ?. 178 6.8046 

4464 3891 2621 

3.8190-3 ?. 3936-3 6.5049-4 

25.8 -218.0 -746.3 

2.7198 2.7390 2./39A 


EXIT EXIT EXIT EXIT 

6u .046 1.0022 1.0091 1.0261 

1.0000 67.094 67.435 65.317 

1635 4462 4455 4433 

L. 5322-4 3.8124-3 3.7924-3 3.7437-3 

-1134.6 24.8 21.9 14.7 

2.7390 2.7398 2.7398 2.7398 


EXIT EXIT 

1.0634 1.1280 

63.991 60.323 

4402 4344 

3.6416-3 3.4790-3 

-0.6 -25.5 

2.7398 2.7390 


EXIT EXIT 

1.3545 1.6348 

50.238 41.623 

4168 3993 

.0201-3 2.6116-3 2, 
-100.8 -175.0 

2.7398 2.7398 


EXIT EXIT 

1.7619 1.8817 

38,620 36.162 

3925 3867 

4649-3 2.3430-3 
-203.6 -228.4 

2.7393 2.7398 


M, MDL WT 
CP* CAL/IGMK) 
GAMMA (S) 

SUN VtL?M/S6C 
MACH NUMBER 


2.558 

0.4201 

1.2917 

1527.1 


20.550 

0.4233 

1.2960 

1428.2 

1.000 


20.550 

0.4061 

1.3124 

1179.4 

2.155 


20.558 20.558 

0.37)4 0.4280 

1.3419 1.2917 

942.0 1526.7 

3.303 0.059 


20.558 20.558 

0.4280 0.4278 

1.2918 1.2919 

1525.6 1522.8 

0.118 0.200 


20.558 20.558 

0.4276 0.4271 

1.2921 1.2925 

1516. B 1506.9 
0.309 0.435 


20 .55 B 20.558 
0.4257 0.4242 

1.2938 1.2951 

1476.7 1446.2 

0.697 0.896 


20.558 20.558 

0.4236 0.4230 

1.2957 1.2962 

1434.2 1423.8 

0.966 1.024 


AE/AT 

CSTAR, FI/S6C 
CF 

I VAC tL8-SFC/ L8 
ISP, L8-SEC/LB 


1.0000 7.0675 

66! 7 6617 

0.708 1.260 

258.0 301.7 

145.6 259.2 


7.1598 10.000 

6617 6617 

1.545 0.044 

339.4 2061.0 

317.8 9.1 


5.0000 3.0003 

6617 6617 

0.089 0.151 

1037.5 632.4 

18.4 31.0 


2.0000 1.5000 

6617 6617 

0.233 0.325 

434.7 340.3 

47.9 66.8 


1.1000 1 .0 100 
6617 6617 

0.510 0.643 

272.0 259.2 

104.9 132.2 


1.0010 1.0005 

6617 6617 

0.687 0.723 

258.1 258.1 

141.3 148.7 


MOLE FRACTIONS 


C 

CH 

C2 

C2H2 
C 4 
F2 
H2 
U2 


0.00253 

CF 

0.01983 

CF? 

0.00593 

CF3 

0.00004 

0.0U024 

CH? 

0.03001 

CH 

0.01306 

CN? 

0.00001 

O.OU132 

C2r2 

0.00002 

C7H 

0.00699 

C2HF 

0.00041 

0.00146 

C2N 

0.00535 

C2N2 

0.00046 

C3 

0.00179 

O.OGOU1 

05 

0.00001 

F 

0.08241 

FCN 

0.00159 

0.00001 

H 

0.04706 

HCN 

0.01297 

HF 

0.65661 

0.01410 
0. L2337 

N 

0.00034 

NF 

0.00001 

NH 

0.00002 


AijO I T lUNAl JMUDUC1S WHICH WfcRE CONSIDERED RUT WHOSE MOLE FRACTIONS WERE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 


c < s I CF4 CH3 CH4 CNN C7F4 C2H4 C2H6 NF2 NF3 

NH2 NH3 N2H4 N3 

^Ore. WEIGHT FRACTION OF FUEL IN IUFAL FUELS AND OF JXlUAMT IN TOTAL OXIDANTS 
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THEORETICAL ROCKET PERFORMANCE ASSUMING FROZEN COMPOSITION DURING EXPANSION 


PC = 1000.0 PS 1 A 

CASE NO. 172 

CHEMICAL FORMULA 

FUEL N 2.00000 H 8.00000 C 2. 03000 

FUEL N 2.00000 H A. 00000 

OXIDANT F 2.00000 


WT FRACTION ENERGY STATE TEMP DENSITY 
(SEE NOTE) CAL/ MOL DEG K G/CC 

0.50000 12734.800 L 298.15 3.7861 

0.50000 12050.000 L 298.15 1.0036 

1.00000 -3098. OOC L 85.02 1.5050 


D/P = 2.5000 PERCENT FUEL= 78.5714 EQUIVALENCE RATIO* 1.4859 REACTANT DENSITY* 1.2521 


CHAMLlER 

PC/P 1.0000 

P, ATM 68.046 

T, DEG K 4464 

kHO, G/CC 3.8190-3 2, 

H, CAL/G 25.8 

S, CAL/ [GUO 2.7398 


THROAT EXIT LX I T 

1.8302 2.4922 2.8860 

37.178 27.303 23.578 

3891 3626 3505 

3936-3 1.B866-3 1.6851-3 

-718.0 -330.1 -380.7 

2.7398 2 . 7398 2.7398 


EXIT EXIT EXIT 

5.6656 7.8973 9.4581 

11.968 8.6163 7.1944 

2995 2772 2656 

0013-3 7.7882-4 6.7870-4 

-593.3 -684.8 -732.1 

2.7398 2.7398 2.7398 


EXIT EXIT EXIT 

39.876 111.17 3103.65 

1.7064 0.6121 0.0219 

1871 1441 577 

2.2849-4 1.0641-4 9.5246-6 
-1044.2 -1207.5 -1513.6 

2.7398 2.7398 2.7398 


EXIT EXIT EXIT 

8387.46 31078.1 83508.0 

0.0081 0.0022 0.0008 
433 297 222 

4.6894-6 1.8494-6 9.1778-7 
-1561.8 - 1607.5 -1632.1 

2. 7398 2.7398 2.7398 


M, MOL WT 20.558 
CP, CAL/IG) I K) 0.4281 
GAMMA (SI 1.2917 
SON VEL, M/SEC 1527.1 
MACH NUMBER 0. 


20.558 20.558 20.558 

0.42 13 0.4207 0.4194 

1.2960 1.2983 1.2995 

1423.2 1379.8 1357.3 

1.000 1.251 1.359 


20.553 20.558 20.558 

0.4126 0.4089 0.4067 

1.3059 1.3096 1.3117 

1257.6 1211.6 1187.0 

1.810 2.013 2.122 


20.558 20.558 20.558 

0.3872 0.3721 0.3382 

1.3327 1.3509 1.4003 

1004.2 887.4 571.5 

2.980 3.620 6.2B0 


20.558 20.558 20.558 

0.3351 0.3327 0.3313 

1.4054 1.409b 1.4119 

496.3 411.2 356.4 

7.343 3.990 10.451 


AE/AT 1.0000 1.0500 
CSTAR, FT/SEC 6617 6617 
CF 0.708 0.856 
1VAC, LB-SEC/LB 258.0 262.6 
ISP, LB-SEC/LB 145.6 176.0 


1.1000 1.5000 1.3000 2.0000 5.0000 

6617 6617 6617 6617 6617 

0.914 1.128 1.209 1.249 1.484 

266.4 236.' 295.5 300.3 330.9 

188.1 232.1 248.7 256.8 305.1 


10. OOC 100.00 200.00 500.00 1000.00 

6617 6617 6617 6617 6617 

1.593 1.779 1.807 1.333 1.847 

346.1 372.6 376.6 380.3 382.3 

327.6 366.0 3 71.7 377.0 379.8 


MOLE FRACTIONS 

C 0.00253 CF 0.C1983 CF2 0.00593 CF 3 0.00004 

CM 0.00024 CH2 0.00001 CN 0.01306 CN2 0.00001 

C2 0.00132 C2T2 0.00002 C2H 0.00899 C2HF 0.C0041 

C2H2 0.00148 C2N 0.06535 C2N2 0.00046 C3 0.00179 

C4 O.OUOOl C5 0.00001 F 0.C8241 FCN 0.00159 

P2 0.00001 H 0.04706 HCN 0.01297 HF 0.65661 

H2 0.01410 N 0. 000 34 NF 0.00001 NH 0.00002 

N2 0.12337 

ADDITIONAL PROOUCTS WHICH WERE CONSIDERED OUT WHOSE MULE FRACTIONS WERE LESS THAN 0. 50000E-05 FOR ALL ASSIGNED CONDITIONS 

L ( 5 ) CF4 CU3 CH4 CNN C2F4 C2H4 C2H6 NF2 NF 3 

NH2 NH 3 N2H4 N3 

NOTE. WEIGHT FRACTION OF FUEL IN TOTAL FUELS AND OF UXIUANT IN TOTAL OXIDANTS 

TRANSPORT PROPERTIES OF ROCKET EXHAUST ASSUMING FROZEN COMPOSITION DURING EXPANSION 
0/F = 2.5000 PERCENT FUEL* 28.5714 EQUIVALENCE <AT10= 1.4859 CHAMBER PRESSURE* 68.046 ATP 


TEMP VISCOSITY MONATOMIC INTERNAL FROZEN CP PRANOTL 

CU.NO CONO CUND FROZ FR02 

EG K POISE C4L/(CM|(SnClfK) CAL/ ( G) IK) 


4464 1431.X1D-6 5O0.X10-6 354. XI '-6 935.X10-6 0.4281 0.6556 
3891 1295. 524. 309. 833. 0.4233 0.6579 
2621 965. 388. 199* 587. 0.4061 0.6674 
1635 666. 265. 103. 368. 0.3794 0.6870 
4462 1431. 580. 354. 934. 0.4281 0.6556 


4455 1429. 579. 354. 933. 0.4280 0.6556 
4438 1425. 578. 352. 930. 0.4279 0.6557 
4402 1417. 574. 350. 924. 0.4276 0.6558 
4344 1403. 6o9. 345. 914. 0.4271 0.6560 
4168 1362. 551. 331. 883. 0.4257 0.6567 


3993 1320. 534. 317. 852. 0.4242 0.6574 
3925 1303. 527. 312. R39. 0.4236 0.6577 
3867 1289. 521. 307. 829. 0.4231 0.6580 
3626 1230. 497. 288. 785. 0.4207 0.6591 
3505 1199. 485. 278. 762. 0.4194 0.6598 


2995 1067. 430. 233. 663. 0.4127 0.6638 
2772 1007. 405. 213. 618. 0.4089 0.6658 
2657, 974. 392. 202. 594. 0.4068 0.6670 
1871 743. 297. 12b. 423. 0. 3872 0.6802 
1441 601. 239. 83. 322. 0.3721 C.6946 


577 264. 102. 13. 115. 0.3382 0.7741 
433 200. 77. 6, 83* 0.3351 0.8025 
297 137. 53. 2. 55. 0.3327 0.8360 
222 103. 39. 0. 40. C.3314 0.8539 
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Case 123 - Input 


REACTANTS 
N 2. Hi,. 

N 2. H 8. C 

F 2. 


50. 

SO. 

ICC. 


120S0 • L298.15 F 1.0036 

12734.8 L298.15 F .7861 

-3098. I 85.02 0 1.505 


NAMELIST 

J1NPT2 KASE=123, HP-T»OF=T*MIX-2.5.P=lO0»10*lf PUNCH=T, NOI)ATA = T t 


Case 123 - Output 


REACTANTS 


N 2.0000 

H 

4.0000 

-0. 


-0. 

-0. 

50 

0000 

12050.00 

L 

298.150 

F 

L 

N 2.0000 

H 

8. 0000 C 

2.0000 


"0. 

-o. 

50 

0000 

12734.80 

L 

298.150 

F 

0 

f 2.0000 


-0. 

-0. 


-0. 

-0. 

100 

0000 

-3090.00 

L 

85.020 

0 

1 

NAMELIST 














UNPT2 














KASfc = 


123, 












I 

0. 

» 

0. 


f 

0. 


0. 


0. 


# 

0. 


0. 

* 

0. 


♦ 

0. 


0. 

9 

0. 


9 

0. 


0. 

9 

0. 


« 

0. 


0. 

9 

0. 


9 

0. 


0. 

t 

0. 


* 

0. 


0. 

9 

0. 


, 

0. 


0. 

t 

0. 


• 

0. 


0. 

9 

0. 



0. 


0. 

t 

0. 


9 

0. 


0. 

9 

0. 


v 

0. 


0. 

V 

0. 



0. 


0. 

9 

0. 


9 

0. 


0. 

• 

0. 


9 

0. 


0. 

9 

0. 


9 

0. 


0. 


0. 


9 

0. 


0. 

• 





P - 

1 , OOOOOOOF+02 t 

1 .QOOOOOOE+Ol , 

1 .OOOoOOOE+OO, 

0. 

9 

0. 



0. 


0. 

, 

0. 


9 

0. 

• 

0. 

9 

0. 


t 

0. 


0. 

9 

0. 


9 

0. 

t 

0. 


0. 



0. 


0. 

9 

0. 


9 

0. 

# 

0. 


0. 



0. 


0. 

• 

0. 


» 









P SI A * 

F 

mmhg = 

Ft NSQK 

- 

Ft 









V 

0. 


0. 


f 

0. 

f 

0. 

f 

0. 



0. 


0. 

9 

0. 


f 

0. 


0. 

# 

0. 



0. 


0. 













KHD 

1.0000000EA02, 

l.ooooouoEm, 

1 « OOOOOOOE+OO* 

0. 

f 

0. 



0. 


0. 

, 

0. 


t 

0. 

f 

0. 

f 

0. 



0. 


0. 

» 

0. 


9 

0. 

t 

0. 

# 

0. 



0. 


0. 

« 

0. 


9 

0. 

9 

0. 

f 

0. 


t 

0. 


0. 

• 

0. 


* 









CRATIQ* 

F 

OF 

r, FPCT 


F, 

FA * F, 








MIX * 

2. 

5000000E+00, 

0. 


f 

0. 

t 

0. 

t 

0. 



0. 


0. 

, 

0. 


t 

0. 

v 

0. 

t 

0. 



0. 


0. 

» 

0. 


* 

0. 

* 







TP 

F 

HP 

T, SP 

■= 

F« 

TV * F f 

uv 

* Ft 

sv 


F, 



RKT 

F 

SHUCK * 

F, OETN 

= 

Ft 

OTTO * F, 

CR 

* 0. 


9 

SO 

0. 


IONS a 

F 

1 DE bUG= 



0. TRACE * 0. 


9 S1UNIT* 

F, EUNITS* F, 



TRNSPT* 

r 

FROZN =• 

F, PUNCH 


Tt 

NODATA* Tt 









* ENO 


OF * 2.500000 

EFFECTIVE FUEL 

ENTHALPY HPPI2) 

(KG-MOLXUEG KI/KG 0.14793078E+03 


EFFECTIVE OXIDANT 
HPPI 1) 

-0.41029893E*02 


MIXTURE 

HSURO 

0.12958869E*02 


KO-ATOMS/KG 


BOP ( 1,2) 

BOPUti) 

BO C 1 ) 

0.4784492 8E -01 

0 . 

0. 13669979E-01 

0. 12896802E+00 

0. 

0.36848007E-01 

0.166 39085E-01 

0. 

0.47540242E-02 

0. 

0.52636011E-01 

0. 375971516-01 


PT N H C F 

1 -13.174 -11.002 -6.011 -19.566 10.030 

2 -14.692 -12.080 -5.639 -21.205 4.000 

3 -15.657 -13.207 -5.224 -22.881 4.000 


128 






HUM ii ii in i li, ii i a :o m m m m 



THERMODYNAMIC EQUILIBRIUM COMBUSTION PROPERTIES AT ASSIGNEO 


CASE NO. 123 


PRESSURES 


FUEL N 
FUEL N 
UXIOANT F 


CHEMICAL FORMULA 

2.00000 H A. 00000 
2.00000 H 8.00000 
2.00000 


C 2.00000 


WT FRACTION 

ENERGY STATE 

TTMP 

DENSITY 

t SEE NOTEI 

CAL/ MOL 

DEG K 

G/CC 

0.50000 

1 2050 .000 L 

298 .15 

1.0036 

0.50000 

1 2 735 .80 0 L 

298.15 

0.7 86 1 

1.00000 

-3098.000 L 

85.02 

1.5050 


0/F= 2.5000 PERCENT FUEL- 28.5714 EQUIVALENCE RATI3= 1.4859 REACTANT DE NS IT Y= 1.2521 


THERMGOYNAMI : PROPERTIES 


P* ATM 
T, DEG K 
RHO, G/CC 
H i CAL/G 
$» CAL/IGMO 


100.00 10.000 1.0000 

45. - 4118 3733 

5.5516-3 5.9440-4 6.3939-5 

25.8 25.6 25.0 

2.7027 2.9274 3.1582 


M, MOL WT 
( OLV/DLP ) T 
(0LV/DLT1P 
CP, CAL/(G)(K) 
GAMMA (S) 

SON VEL »M/SE C 


20.658 
- 1 . 03428 
1.5332 
1.2639 
1.1691 
1460.7 


20.086 
*1 .04434 
1.767D 
1.7797 
1.1484 
1399.2 


19.586 

-1.05388 

2.0318 

2.4735 

1.1305 

1338.5 


MOLE FRACTIONS 


C 

CF 

CF2 

CF3 

CH 

CH2 

CH3 

CN 

CN2 

C2 

C2F2 

C2H 

C2HF 

C2H2 

C2N 

C2N2 

C 3 

C4 

C5 

F 

FCN 

F2 

H 

HCN 

HF 

H2 

N 

N F 

NH 

N2 


0.00228 
0.01984 
0.00670 
0.00006 
0.00026 
0.00001 
0.00001 
0.01270 
0.00001 
0.00122 
0.00002 
O.00B82 
0.00048 
0.00163 
0.00536 
0.00051 
0.00158 
0.00001 
0.00001 
0.07985 
0.00177 
0.00001 
0.04346 
0.01370 
0.66208 
0.01454 
0. 00035 
0.00002 
0.00002 
0.12372 


0.00386 
0.01889 
0.00325 
0.00001 
0.00017 
0.00000 
0.00000 
0.0 1433 
0.00000 
0.00177 
0.00001 
0. 00931 
0.00020 
0.00091 
0.00501 
0.00028 
0. 00309 
O.OOCOl 
0.00001 
0.09876 
0.00091 
0.00000 
0.06588 
0 .00969 
0.62986 
0.01159 
0.00030 
0.00000 
0.00001 
3.12188 


0.00538 
0.01659 
0.00162 
O.OUOOO 
0.00009 
0.00000 
0.00000 
0.01474 
0.00000 
0.00213 
0.00000 
0.00876 
0.30008 
0.00047 
0.00425 
0.00015 
0.00529 
0.00002 
0.00001 
0.11566 
0.00047 
0.00000 
0.08820 
0.00655 
0.60034 
0.00037 
0.03022 
0.30000 
O.OUOOO 
0. 12061 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE MOLE FRACTIONS WERE LESS THAN 

C(S) CF * CH4 CNN C2F4 C2H4 C2H6 

NH 3 N2H4 N3 

NOTE. WEIGHT FRACTION OF FUEL IN TOTAL FUELS AND OF OXIDANT IN TOTAL OXIDANTS 


0. 50000E-G5 FOR ALL 
NF2 


ASSIGNED CONDITIONS 
NF3 NH2 


TEMP 


DEG K 


0/F = 2.5000 


TRANSPORT PROPERTIES AT ASSIGNED PRESSURES 
PERCENT FUEL- 28.5714 EQUIVALENCE RATIO* 1.4859 ENTHALPY* 


VISCOSITY MUNAT0M1C 
COND 


INTERNAL 

COND 


FROZEN 

COND 


REACTION 

COND 


EQUILIBR! UM 
COMO 


CAL/I CM ) ( SECM K ) 


FROZ 6Q 

CAL/CGMK) 


25.8 CAL/G 


PRANDTL PRANOTL LEWIS 

FROZ EQ NUMBER 


DIMENSIONLESS 


4535 

4118 

3733 


l 448. XI 0-6 
t 346. 

1247. 


501. X 10-6 363.X 10-6 

573. 316. 

561. 273. 


944 .X 1 0-6 
889. 

835. 


2772. X l 0-6 
4068. 

5434. 


3 716. XI 0-6 
4957. 

6269. 


0.4285 

0.4250 

0.4231 


1 • 2628 
1.7791 
2.4729 


0.6577 

0.6447 

0.6320 


0.4922 1.5088 

0 .'<830 1.4402 

0.4919 1 .5439 
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Case 679 - Input 


REACTANTS 
L II- 
F 2. 


1. HO. 
.5556 M-3098. 


S298.15 \ 

L 85.02 0 1.505 


NAMELISTS 

JINPT? KASE=679, RKT= T , P= 1000 , PS I A = T , IONS = T , T«NSPT*F $ 

SRKTINP PCP=3, 10,30,69.0457, 100,1000,3000,30000,300000 $ 


Case 679 - Output 


reactants 

LI 1.0000 
F 2.0000 
NAMELISTS 

SINPT2 


1 . OOOOOOOE *-03 


ERATI 0= 
NIX 


l • UOOOUOOE+ D3 


0 . 

F, FPCT 


TP 

RKT 

IONS = 
FRNSP T - 
% END 


F, HP 

T, SHOCK = 
T, IOEBUG* 
F, FftOZN * 


F, SP 
F, OETN 


TV 


F, OTTO * 
0, TRACE * 0 

F, PUNCH = F, NODATA* 


1.0000 H 0. S 298.150 F -0. 

0.5556 M -3090.00 L 05.020 0 1.50500 



■MU 1NPT2 VALUE GIVEN FOR OF, EQRAT, FA, OR FPCT 
SPECIES BEING CONSIDERED IN THIS SYSTEM 


L02/6/ 

E 

J 9/65 

y 

J 12/71 

F- 

J12/60 

F 2 

J 6/6? 

LI IS1 

J 6/62 

LI tU 

J 6/62 

LI 

J 3/66 

LI* 

J 12/68 

LIFISI 

J 12/6 0 

lifil; 

J 1 2/68 

LIF 

J12/68 

LIF2- 

J 6/62 

LI? 

Jt 2/68 

LI2F2 

J 12/68 

L I3F3 
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1 

i 



SRKTINP 


EQL 

* 

T , FRDZ - 

T, 





SUBAR 

> 

0. , 

0. * 

0. , 

0. « 

0. , 

0. 



0. . 

0. « 

0. , 

0. * 

0. , 

0. 



o. , 






SUPAR 

< 

0. , 

0. , 

o. , 

0. 9 

0. , 

0. 



0. , 

0. * 

0* , 

0. • 

0. , 

0. 



0. , 






PCP 


3.0000000E+00, 

1 .00000006*01 t 

3.00000006*01 , 

6.80457006*01, 

1.00000006*02, 

1.00000006*03 



j.oooooooe+03. 

3-00000006*04, 

3 • 00000006*05, 

0. t 

0. , 

0. 



o. , 

o. , 

0. , 

0. * 

0. , 

0. 



o. , 

0. * 

0. , 

0. , 



NFZ 

- 

l. 






* END 









OF * B. 042372 

EFFECTIVE FUEL 

ENTHALPY HPP( 2 ) 

(KG-MOLMOEG K) /KG 0. 


EFFECTIVE OXIDANT MIXTURE 

HPP(L) HSUBO 

-0.41029692t*02 -0. 3O079939E*O2 


KG-ATOMS/KG 

bop(I,2> 

LI 

0.1**11298E*00 

F 

0 . 

E 

0 . 

PT LI F 

E 

l -16.252 -19.930 

-9. 1ZA 9.000 


BOP ( I « 1 ) BOdl 

0* 0.356505966-01 

0*526360116-01 0* 396 1 494 IE -01 

0 . 0 . 


THE TEMPERATURE* 0.5691E*04 IS OUT OF RANGE FDR POINT l 
2 -16*576 -20.312 -9*754 4.000 

THE TEMPERATURE* 0.53406*04 IS OUT OF RANGE FUR POINT 2 
PC/PT* 1.759768 T ^ 5340.15 

2 -16.574 -20.310 -9.752 2.000, 


THE TEMPERATURE* 0.5341E4-04 IS OUT OF RANGE FOR POINT 2 
PC/PT* 1.755775 T * 5341.50 

3 -16.905 -20.677 -10.381 4.000 


THE TEMPERATURE* 0.5036E*04 IS 


-17.756 

-18.757 

-19.856 

-20.610 

-28.682 

-32.281 

-38.057 

-43.101 


-21.506 
-22.227 
-22.650 
-22.760 
-22.382 
-22.431 
-23.151 
-24. 151 


-11.953 

-13.740 

-15.650 

-16.956 

-31.023 

4.000 

-41.159 

4.000 


OUT OF 
4.000 
4.000 
4.000 

4.000 

6.000 

5 .000 


RANGE FOR POINT 


THEORETICAL ROCKET PERFORMANCE ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION 


PC = 1000. 0 PSIA 

CASE NO. 679 





MOLES 

ENERGY STATE 

TEMP 

DENSITY 


CHEMICAL FORMULA 



CAL/MOL 

0 EG K 

G/CC 

FUEL 

LI 1.00000 


l. 00000 

0. S 

298.15 

-0. 

OXIDANT 

F 2.00000 


0.55560 

-3098.000 L 

85.02 

1.505C 


0/F* 3.0424 

PERCENT FUEL* 24.7379 

EQUIVALENCE RATIO* 0.8999 

REACTANT DENSITY* 0. 





CHAMBER 

THROAT 

EXIT 

tXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXI T 

EXIT 

EXIT 

PC/P 

1.0000 

1 . 75 j8 

3.0000 

10.000 

30.000 

68.046 

100.00 

iooo.oo 

3000.00 

30000.0 

300000.0 

P, ATM 

68.046 

38.755 

22.682 

6.8046 

2.2682 

1.0000 

0.6805 

0.0680 

0.0227 

0.0023 

0.0002 

T, DEG K 

5691 

5341 

5036 

4421 

3909 

3511 

3300 

2091 

1809 

1495 

1301 

RHO, G/CC 

3.1975-3 1, 

,9826-3 

1.2554-3 

4.4700-4 

1.7400-4 

8.6917-5 

6.3246-5 

1.0160-5 

4.0263-6 

5.2528-7 

6.4894-8 

H, CAL/G 

-61 .4 

-339.4 

-583.3 

-1067.2 

-1442.5 

-1685.9 

-1709.7 

-2267.0 

-2429.9 

-2703.9 

-2920.2 

S, CAL/ I G 1 CO 

2.7095 

2.7095 

2.7095 

2 - /095 

2.7095 

2.7095 

2. 7095 

2.7095 

2.7095 

2.7095 

2.7095 

H, MOL WT 

21.943 

22.422 

22.870 

23.83? 

24.604 

25.040 

25.170 

25.614 

26.350 

28.401 

30.536 

I l)L V/ULP ) f 

-1.08263 -1 

L. 07304 

- 1 .0636 3 

-1.04207 

-1.02213 

-1.00871 

-1.00433 

-1.01420 

-1*03902 

-1.08732 

-l. 1 1244 

(OLV/DLT) P 

2.0657 

1.9966 

1.9164 

1.6822 

1.4008 

1.1699 

1.0839 

1.2038 

1.6499 

2. T673 

3.6211 

CP, CAL/ ( o ) ( K ) 

1.6397 

1.5925 

1.5273 

1.2939 

0.9518 

0.6260 

0.4909 

0.5744 

1*1636 

2.8527 

4.3 30 3 

GAMMA IS) 

l. 1807 

1.1748 

1.1699 

1.1632 

L • 1688 

1.1973 

1.2264 

1.2218 

1.1593 

1.1117 

1 .0924 

SON VEL*M/S=; 

1595.6 

1525.4 

1463.5 

1339.5 

1242.5 

1181.4 

1156.3 

910.5 

813.5 

697.4 

622.0 

MACH NUMBER 

0. 

1.000 

1.428 

2.166 

2.736 

3.121 

3.289 

4. 718 

5.47 3 

6.742 

7.863 

AE/AT 


1.0000 

1.1528 

2.3321 

5.1126 

9.4372 

12.574 

69.204 

168.72 

1224.37 

9520.08 

C STAR , FT/SEC 


7480 

7430 

7480 

7480 

7480 

7480 

7480 

748 0 

7480 

7480 

CF 


0.669 

0.917 

1.273 

1.491 

1.617 

1 *668 

1*884 

1.953 

2.063 

2. 145 

I VAC t L8-SEC/ LB 


288.0 

302.4 

350.1 

386.3 

408.2 

417.0 

454.2 

467.0 

489.0 

506. 1 

ISP, LB-SEC/ LB 


155.6 

213.1 

295.8 

346.7 

376.0 

387.8 

438.1 

454.0 

479.5 

4 98.8 
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HOLE FRACTIOUS 


E 0.00294 0.00237 0.00188 0.00096 0.00036 0.00009 0.00003 0. 0. 0. 0. 

F 0.21151 0.19574 0.18087 0.14865 0.12245 0.10760 0.10329 0.10154 0.10446 0.11258 0.12105 

F- 0.00464 0.00364 0.00284 0.00148 0.00067 0.00028 0.00015 0.00000 0. 0.00000 0. 

F2 0.00002 0.00001 0.00001 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 

L I 0.12106 0.10422 0.0B820 0.05320 0.02455 0.00824 0.00347 0.00000 0. 0. 0. 

Ll+ 0.00758 0.00601 0.00471 0.00243 0.00104 0.00038 0.00019 0.00000 0. 0. 0. 

LIF 0.65089 0.68690 0.72056 0.79259 0.85030 0.88273 0.89207 0.88385 0.85238 0.76605 0.67705 

ui2 0,00028 0.00014 o.ooooT o.ooooi o.ooooo o.ooooo o.ooooo o. o. o. o. 

L12F2 0.00109 0.00096 0.00085 0.00068 0.00062 0.00068 0.00081 0.01449 0.04246 0.11762 0.19413 

LI3F3 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00011 0.00071 0.00374 0.00777 

ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE MOLE FRACTIONS WERE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 

LI ( S ) LKLJ LIF(S) LIFIL) LIF2- 


THFORETICAL ROCKET PERFORMANCE ASSUMING FROZEN COMPOSITION DURING EXPANSION 


MOLES ENERGY STATE TEMP DENSITY 

CAL/MOL CEG K G/CC 

1.00000 0. S 298.15 -0. 

0.55560 -3098.000 L 85.02 1.5050 

0/E- 3.0424 PERCENI FUEL* 24.7379 EOUIVALENCE RATIO* 0.8999 REACTANT DENSITY* 0. 


CHAMBER THROAT EXIT EXIT tXIT EXIT EXIT EXIT EXIT EXIT EXIT 
PC/p 1.0000 i .6444 3.0000 10.000 30.000 68.046 100.00 1000.00 3000.00 30000.0 300000.0 
p, AIM 68.046 36.893 22.682 6.8046 2.2682 1.0000 0.6805 0.0680 0.0227 0.0023 0.0002 
T, DEG K 569 i 4915 4366 3235 2448 1984 1796 984 734 388 195 
RHO, G/CC 3.1975-3 2.0071-3 1.3892-3 5.6249-4 2.4781-4 1.3480-4 1.0131-4 1.8501-5 8.2678-6 1.5643-6 3.1113-7 
H, CAL/G -61.4 -354.9 -559.1 -970.7 -1251.7 -1415.4 -14R1.3 -1762.9 -1847.8 -1961.3 -2020.0 
S. CAL/IGMK) 2.7095 2.7095 2.7095 2.7095 2.7095 2.7095 2.7095 2.7095 2.7095 2.7095 2.7095 

M, MOL WT 21.943 21.943 21.943 21.943 21.943 21.943 21.943 21.943 21.943 21.943 21.943 
CP, CAL/IGXX) 0.3823 0.3746 0.3690 0.3594 0.3544 0.3516 0.3503 0.3421 0.3365 0.3159 0. 2915 
GAMMA (SI 1.3104 1.3188 L.3253 1.3369 1.3432 1.3470 1.3487 1.3600 1.3683 1.4019 1.4508 
SON VEL. M/SEC 1681.0 1567.3 1480.7 1280.1 1116.1 1006.2 958.1 711.9 616.7 453.8 327.4 
MACH NUMBER 0. 1.000 1.378 2-.155 2.828 3.345 3.598 5.300 6.269 8.786 12,367 

AE/AT 1.0000 1.1095 2.0273 4.0221 6.9325 9.0081 45.060 98.405 504.34 2497.35 
CSTAR, FT/SEC 7191 7191 7191 7191 7191 7191 7191 7191 7191 7191 
CF 0.715 0.931 1.259 1.440 1.536 1.573 1.722 1.764 1.819 1.847 
1 VAC * LB— SEC/ L8 281.0 290.8 326.6 351.8 366.0 371.6 394.9 401.6 410.3 414.7 
ISP. LB-SEC/LB 159.8 208. L 281.3 321.8 343.2 351.5 384.8 394.3 406.6 412.8 


MOLE ERAS 1 1 DNS 

E 0. 00294 F 0.21151 F- 0.00464 F2 0.00002 

LI 0.12106 LI* 0.00758 HF 0.65089 LI2 0.00028 

H2F2 0.00109 

ADDITIONAL PROOUCIS WHICH WERE CONSIDERED BUT WHOSE MOLE FRACTIONS WERE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 
LKSI LI(L) LIFIS) LIFIL! L IF2- LI3F3 


PC = 1000. 0 PSIA 

CASE NO. 679 

CHEMICAL FORMULA 
FUEL LI 1.00000 
OXIDANT F 2.00000 
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Case 950 - Input 


REACTANTS 
H 2. 



100. 

0. G298.15 

N 1.561760 

.419590AR. 009324C 

.000300 

100. 

-28.2 G298.15 

OMIT 

C2H4 

C3U2 

H20 ( S ) 

CCS) 

OMIT 

C2N2 

H2U(L J 

C2C 

C2H2 

OMIT 

H02 

H202 



OMIT 

NH2 

CH2 

CH 

NH3 

OMIT 

C2N 

CH3 

N02 

CH4 

OMIT 

HCN 

C2H 

C3 

N20 

OMIT 

N2C 

C2 

CN 

HCO 

OMIT 

NAMELISTS 

N2H4 

N2Q4 

CN2 


3INPT2 TP = 

T f P=.lj.01* ERA 7 1*0= 

T * Mi X* 1 . 5 # ] 

L , 2 » T = 3000, 

2000 *K ASE=950 


Case 950 - Output 


REACTANTS 


h 2.0000 


-0. 

-0. -0. 

-0. 


100. 

0000 

0. 

G 298.150 

F 

-0. 


N 1.5618 

□ 

0.4196 Aft 

0.0093 C 0.0003 -j. 


100. 

0000 

-28. 

20 G 298.150 

0 

-0. 


UMIT 


C2H4 

C302 

H201S) 


cm 







OMIT 


C2N2 

H20<L) 

C20 


C2H2 







UMIT 


H02 

H202 










UMIT 


NH2 

CH2 

CH 


NH3 







DMIT 


C2N 

CH3 

N02 


CH4 







OMIT 


HCN 

C2H 

C3 


N20 







OMI T 


N2C 

C2 

CN 


HCO 







OMIT 


N?H4 

N2U4 

CN2 









NAMELI STS 













*IN PT2 













KASE = 


950, 











T 

3 . 

OOQOOOOE+03, 

2 .00000 00 E+03, 

0. 



0. 


0. 


0. 



0. 


o. , 

0. 



0. 


0. 

f 

0. 

, 


0. 


0. , 

0. 



0. 


0. 

, 

0. 

# 


0. 


0. , 

0. 



0. 


0. 

f 

0. 



0. 


0. , 

0. 



0. 


0. 

9 

0. 

# 


0. 


o. • 

0. 



0. 


0. 

t 

0. 

# 


0. 


0. • 

0. 



0. 


0. 

, 

0. 

f 


0. 


o. , 

0. 



0. 


0. 


0. 

t 


0. 


o. , 

0. 



0. 






? - 

1. 

OOOOOUOE-Ol , 

1 .00000006-02* 

0. 



0. 


0. 

f 

0. 



0. 

t 

0. , 

0. 



0. 


0. 

f 

0. 



0. 

♦ 

0. v 

0. 



0. 


0. 


0. 



0. 


0. , 

0. 



0. 


0. 


0. 



0. 


0. , 










PSIA = 

F 

, HMHG * 

F, NSQM = Ft 










V 

0. 


0. , 

0. 



0. 


0. 

# 

0. 



0. 


0. , 

0. 


t 

0. 

, 

0. 


0. 



0. 












ft HD 

1. 

0000000E-01, 

l. OOOOOOOE-02, 

0. 



0. 


0. 


0. 



0. 

* 

0. , 

0. 


v 

0. 

, 

0. 

# 

0. 



0. 

9 

0. , 

0. 


, 

0. 


0. 


0. 

9 


0. 

» 

0. , 

0. 


v 

0. 

# 

0. 


0. 



0. 

9 

o. • 










EKATI 0= 

T 

t OF 

F, FPCT * F, 

FA 

Ft 








MIX 

l. 

5000G00E + 00 , 

1 .OOOOOOOE+DD • 

2 .OOOOOOuE +00 9 

0. 


0. 


0. 



0. 

, 

0. , 

0. 


# 

0. 

f 

0. 


0. 



0. 

* 

0. , 

0. 


* 







TP 

T 

HP 

F , SP = F, 

TV 

Ft 

uv 

= F, 

sv 

* F, 




RKT 

F 

SHOCK * 

Ft DETN = F, 

OTTO « 

Ft 

Cft 

= 0. 


, so 

0. 


t SO * 0 

IONS * 

F 

I DE8UG = 

0, TRACE « 0. 



• SI UNI T * 

F 

• EUNITS* Ft 





TRNSPT* T, FROZN = F, PUNCH = F, NOOAT A* F t 

$ END 


SPECIES BEING CONSIDERED 

IN THIS SYSTEM 








L 5/66 

AR 

J 3/61 

c 

J 3/61 

CH20 

J 6/66 

CNN 

J 

9/65 

CO 

J 9/65 

C02 

L 5/72 

C2H6 

J12/69 

C4 

J12/69 

C5 

J 

9/6 5 

H 

J12/70 

HNCO 

J 3/63 

HNO 

J 3/61 

H2 

J 3/61 

H20 

J 

3/61 

N 

J12/70 

NCO 

J12/71 

NH 

J 6/63 

NO 

312/64 

N03 

J 

9/6 5 

N2 

J12/70 

N3 

J 6/62 

0 

J12/70 

OH 

J 9/65 

02 

J 

6/61 

03 

OF « 22.869901 












EFFECTIVE FUEL 

EFFECTIVE OXIDANT 

MIXTURE 





ENTHALPY 


HPPI 2) 


HP P( 1 ) 


HSUBO 





(KG-MOLIIOEG K) /KG 

O'. 


-0*4899491 46+00 

-0.46940611E+00 




KG-ATOMS/KG 


80P( I v 2 ) 


BOP (1,11 


BOM I 





H 


0.99209300E-+00 

0. 


0.41597364E 

-01 




N 


0. 


0.53920039E-01 

0.51659231E 

-01 




0 


0. 


0.14486419E- 

■01 

0.13879019E 

-01 




AR 


0* 


0.32 191274E- 

■03 

0.30841 529E 

-03 




C 


0. 


0. 10357553E- 

■04 

0.99232720E 

-05 





PT H 

1 -12.567 

2 -11.84* 

3 -14.101 

4 -13.002 


N 

-15.738 

-14.915 

-17.003 

-16.067 


0 

-18.416 

-21.829 

-19.689 

-21.821 


Art 

-29.654 

-28.570 

-32.185 

-30.875 


C 

-26.227 

-23.639 

-27.408 

-25*954 


17.000 

7.000 

5.000 

8.000 
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THERMODYNAMIC EQUILIBRIUM PROPERTIES AT ASSIGNED 
TEMPERATURE AND PRESSURE 


CASE NO. 950 

CHEMICAL FORMULA 
FUEL H 2.00000 

OXIDANT N 1.56176 0 0.41959 AR 0.00932 C 0.00030 

O/F* 22.8599 PERCENT FUEL- 4.1929 EQUIVALENCE RATIO- 


WT FRACTION 

ENERGY 

STATE 

TEMP 

OENSITY 

(SEE NOTE) 

CAL/ KOI 


DEG K 

G/CC 

1.00000 

0. 

G 

298.15 

-0. 

1.00000 

-28.200 

G 

298.15 

-0. 


1.5000 REACTANT DENSITY- 0. 


THERMODYNAMIC PROPERTIES 


P, ATM 

0.1000 

o.iooo 

0.0100 

0.0100 

T, DEG K 

3000 

2000 

3000 

2000 

RHO, G/CC 

7.1132-6 

1.2964-5 

5.6618-7 

1.2930-6 

H, CAL/G 

1551.2 

-117.7 

3222.6 

-103.6 

S, CAL/ I G I ( < ) 

3.6980 

3.0712 

4.5486 

3.2936 

M, MUL HI 

17.510 

21.275 

13.937 

21.220 

( DLV/OLP) r 

-1.06647 

-1.00060 

-1.08691 

-1.00193 

10LV/DLTIP 

2.6652 

1.0172 

2.6389 

1.0556 

CP, CAL/IG) I X) 

4.2389 

0.4965 

4.9243 

0.6014 

GAMMA IS) 

1.1193 

1.2408 

1.1296 

1.2071 

SON VEL,K/S:C 

1262.7 

984.8 

1421.6 

972.6 

MOLE FRACTIONS 

AR 

0.00540 

0.00656 

0.00430 

0.00654 

CD 

0.00016 

0.00015 

0.00013 

0.00015 

C02 

0.00002 

0.00006 

0.00000 

0.00007 

H 

0. 18282 

0.00196 

0*39418 

0.00616 

H2 

0.13549 

0.14675 

0*06299 

0.1 4483 

H2D 

0.11209 

0.29458 

0.01459 

0.29282 

N 

0.00003 

0. 

0.00008 

0. 

NO 

0.00971 

0.00003 

0.00767 

0.00009 

N2 

0.44742 

0.54952 

0.35612 

D. 54805 

0 

0.04229 

0.00000 

0.11840 

0.00004 

UH 

0.05041 

0.00039 

0.03043 

0.00122 

02 

0.01417 

0.00000 

0*01110 

0.00003 


ADDITIONAL PRODUCTS WHICH HERE CONSIDERED BUT WHOSE MOLE FRACTIONS HERE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 

c CH20 CNN C2H6 C4 C5 HNCO HNO NCO NH 

N03 N3 03 

NOTE. HEIGHT FRACTION OF FUEL IN TOTAL FUELS AND OF OXIDANT IN TOTAL OXIDANTS 


TRANSPORT PROPERTIES AT ASSIGNED TEMPERATURE AND PRESSURE 


0/F- 22.8499 PERCENT FUEL- 4.1929 EQUIVALENCE RATIO- 1.5000 FIRST PRESSURE- 0.100 ATM 


TEMP 

VISCOSITY MONATOHIC 

INTERNAL 

FROZEN 

REACTION 

EQUILIBRIUM 

CP 

CP 

PRANDTL 

PRANDTL 

LEWIS 


COND 

COND 

COND 

COND 

CJND 

FROZ 

EQ 

FROZ 

EQ 

NUMBER 


DEG X POISE CAL/ICMK SECHKI CAL/IGXK) 0 1 PENS IONLESS 


3000 

839.X10-6 

563. X 10-6 

285.X 10-6 

B4B.X10— 6 

10172. X10-6 

11020. X10-6 

0.4838 

4.2389 

0.4789 

0.3227 

1.5462 

2000 

640. 

255. 

227. 

482. 

151. 

633. 

0.4499 

0.4965 

0.5971 

0 .5021 

3.0156 

3000 

808. 

829. 

173. 

1003. 

10027 • 

11029. 

0.4968 

4.9243 

0.4003 

0. 3608 

1.1220 

2000 

650. 

258. 

226. 

484. 

475. 

959. 

0.4501 

0.6014 

0.5951 

0 . 40 1 4 

2.9 182 


UF * 34.291358 

EFFECTIVE FUEL 

EFFECTIVE OX 10 ANT 

ENTHALPY 

HPP( 2 ) 

HPP( 1) 

(KG-MOLMOEG K) /KG 

0 . 

- 0. 489949 14E+ 00 

KG-ATOMS/KG 

BOP ( 1,2) 

BOP ( 1,1 ) 

H 

0.99209300E+00 

0 . 

N 

0 . 

0 .5 39200 39 E- 01 

0 

0 . 

0*1448641 9E-01 

AR 

0 . 

0.32191274E-03 

C 

0 . 

0. I0357553E-04 


H N o 

*12.803 -15.669 -18.085 

-13.412 -14.836 -18.557 

-14.309 -16.920 -19.494 

-14.200 -15.991 -19.315 


AR C 

-29.513 -26.456 

-28.413 -28.927 

-32.017 -27.442 

-30.721 -29.806 


5.000 

7.000 

5.000 

8.000 


MIXTURE 

HSUBO 

-0.47606605E+00 
80(1 1 

0.281U739E-0I 
0. 52392171E-0L 
0. 14075934E-01 
0. 31279108E-03 
0. 10064063E-04 
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THERMODYNAMIC EQUILIBRIUM PROPERTIES AT ASSIGNED 





TEMPERATURE 

AND PRESSURE 





CASE NO. 

, 950 



WT FRACTION 

ENERGY 

STATE 

TEMP 

DENSITY 


CHEMICAL FORMULA 



( SEE NOTE) 

\ CAL /MOL 


DEG K 

G/CC 

FUEL 

H 2.00000 



I. 00000 

0. 

G 

298.15 

-0. 

OXIDANT 

N 1.56176 0 0.61959 

AR 0*00932 

C 0.00030 

1.00000 

-28.200 

G 

298.15 

-0. 


O/F* 36.2911 PERCENT FUEL* 2.8336 EQUIVALENCE RATIO- 1.0000 REACTANT DENSITY- 0. 


THERMODYNAMIC PROPERTIES 


P, ATM 

0*1000 

0.1000 

0.0100 

0.0100 

T, DEG K 

3000 

2000 

3000 

2000 

RHP t G/CC 

8.0796-6 

1.6956-5 6, 

.6021-7 

1.6877-6 

H, CAL/G 

1372.4 

-193.6 

2659.6 

-166.6 

S, CAL/IGMO 

3.3290 

2.7366 

6.0132 

2.9367 

M. MOL HT 

19.890 

26.565 

16.252 

26.615 

IOLV/DLPIT 

-1.07939 

-1.00163 - 

1.07650 

-1.00352 

10LV/DLTIP 

2.5496 

1.0656 

2.6081 

1.1093 

CP. CAL/ICMK1 

3.4784 

0.5176 

3.7121 

0.6795 

GAMMA IS) 

1.1202 

1.2062 

1.1319 

1.1681 

SON VEL.H/SEC 

1185.3 

903.2 

1318.0 

891.9 


HOLE FRACTIONS 
AR 

0.00622 

0.00768 

0.00508 

0.00764 

CO 

0.00017 

0.00002 

0.00016 

0.00004 

C02 

0.00003 

0.00023 

0.00001 

0.00021 

H 

0.14373 

0.00061 

0.32026 

0.00186 

H2 

0.08374 

0.00638 

0.041 5 B 

0.01318 

H20 

0.09639 

0.33736 

0.01170 

0.32680 

N 

0.00003 

0 . 

0.00009 

0. 

NO 

0.01448 

0.000 77 

0.01013 

0.00114 

N2 

0.51378 

0.66260 

0.42063 

0.63900 

0 

0.05885 

0.00010 

0.14391 

0.00048 

OH 

0.05514 

0.00212 

0.03004 

0.00453 

02 

0.02743 

0.00233 

0.01640 

0.00513 


ADDITIONAL PRODUCTS WHICH HERE CONSIDERED BUT WHOSE MOLE FRACTIONS WtRE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 

C CH20 CNN C2H6 C4 C5 HNCO HNO NCO NH 

N03 N3 03 

NOTE. HEIGHT FRACTION OF FUEL IN TOTAL FUELS AND OF OXIDANT IN TOTAL OXIOANTS 


TRANSPORT PROPERTIES AT ASSIGNED TEMPERATURE AND PRESSURE 



D/F* 34.2911 

PERCENT FUEL* 

2.B336 

EQUIVALENCE 

RATIO* I. 0000 FIRST 

PRESSURE* 

0.100 

ATM 


TEMP 

VISCOSITY HUNATDHIC 
CUND 

INTERNAL 

CUND 

FRUZEN 

CUND 

REACTION 

COND 

EQUILIBRIUM CP 

COND FROZ 

CP 

EQ 

PRANDTL 

FROZ 

PRANDTL 

EQ 

LEWIS 

NUMBER 


DEG K POISE CAL/ICMIISECMK) CAL/IGHK) D I PENS IONLESS 


3000 

2000 

3000 

2000 


B55.X10-6 667.X10-6 240.X10-6 70T.X10-6 82B7.X10-6 8995.X10-6 

661. 206. 186. 391. 194. 585. 

830. 682. 157. 838. 7227. 8065. 

660. 208. 186. 396. 507. 901. 


0.6271 

0.3988 

0.6369 

0.3990 


3.6786 

0.5176 

3.7121 

0.6795 


OF * 17*133338 

EFFECTIVE FUEL 

EFFECTIVE OXIDANT 

MIXTURE 

ENTHALPY 

HPP(2 ) 

HPPI l) 

HSUBO 

I KG— MOL) ( DEG K) /KG 

0 . 

-0.68996916EFOO 

-0.46292989E+00 


KG-ATOMS/KG 

BOPI 1,2) 

BOP (1,1) 

BO(l) 

H 

0.99209300E+00 

0 . 

0.5471 0996E-0 I 

N 

0. 

0. 53920039E-01 

0. 509465086-01 

0 

0. 

0.14486419E-01 

0 • 1368 f 5 35E-0 1 

AR 

0. 

0.32191274E-03 

0. 304 16020 t -03 

C 

0 . 

0. 10 35 755 3E- 04 

0.97863643E-05 


0.5166 

0.6739 

0.6326 

0.6686 


0.3307 

0.5869 

0.3820 

0.6980 


1.6600 
1.6636 
l.I 502 
1.8302 


PT H N 0 

1 -12.615 -15.802 -18.700 

2 -11.566 -16.986 -22.522 

3 -13.976 -17.075 -19.856 

6 -12.723 -16.137 -22.515 


Ak C 

-29.785 -26.068 5.000 
-28.708 -22.917 7.000 
-32.329 -27.382 5.000 
-31.016 -25.231 8.000 
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THERMODYNAMIC equilibrium properties at assigned 


CASE NO. 950 


TEMPERATURE ANO PRESSURE 






WT FRACTION 

energy 

STATE 

TEMP 

DENSITY 


CHEMICAL FORMULA 



( SEE NOTE) 

CAL /MOL 


OEG K 

G/CC 

KIEL 

H 2.00000 



I. 00000 

0. 

G 

298.15 

-0. 

OXIDANT 

N l . t>6 1 To 0 0.41959 

AR 0.00932 

C 0.UGO30 

1.00000 

-28. -200 

G 

298.15 

-0. 


0/F = 17.1333 PERCENT FUEL= 5.51*7 


equivalence ratio= 2.0000 reactant density^ o. 


THERMODYNAMIC PROPERTIES 


P, ATM 

0.1000 

0.1000 

0.0100 

0.0100 

T, OEG K 

3000 

2000 

3000 

2000 

RHU, G/CC 

6.3311-6 1 

.1450-5 

4.9731-7 

1.1414-6 

H, CAL/G 

1774.4 

-27.3 

3769.9 

-8.9 

S. CAL /I G 1 IK) 

4.0682 

3.3911 

5.0648 

3.6441 

M. MUL wr 

15.585 

18.790 

12.242 

18.732 

(DLV/ULP) I 

-1.08791 

1.00072 

-1.09489 

-1.00226 

IDLV/DLTIP 

2.7067 

1.0201 

2.7866 

1.0636 

CP, CAL/IGIU) 

4.7915 

0.5595 

6.0360 

0.6904 

GAMMA IS) 

1.1199 

1.2437 

1 • 1286 

1.7071 

SON VFL, M/SEC 

1338. 8 

1049.1 

1516.4 

1035.1 


MOLE FRACTIONS 
AR 

0.00474 

0.00572 

0.00372 

0.00570 

CO 

0.00014 

0.00015 

0.00012 

0.00015 

C02 

0 . 0000 i 

0.00003 

0.00000 

0.00003 

H 

0.21280 

0.00259 

0.44687 

0.00813 

H2 

0.18358 

0.25589 

0.08095 

0.25266 

H20 

0.1 1428 

0.25670 

0.01589 

0.25530 

N 

0.00003 

0. 

0.00008 

0. 

NO 

0.00685 

0.00001 

0.00605 

0.00004 

N2 

0.39356 

0.47864 

0.30878 

0.47715 

0 

0.03183 

0.00000 

0. 10033 

0.00002 

OH 

0.044 15 

0.00026 

0.02923 

0.00081 

02 

0.00802 

0.00000 

0.00797 

0.00001 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE MOLE TRACT I UNS WERE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 


c 

CH20 

CNN 

C2H6 

C4 

C5 

HNCO 

HNO 

NCO 

NH 

N03 

N3 

U3 









NOTE. 

WEIGHT FRACTION UF FULL 

IN TOTAL FUELS AND OF 

UXIOANT IN 

TOTAL OXIDANTS 









TRANSPORT PROPERTIES AT ASSIGNED TEMPERATURE ANO 

PRESSURE 





0/F = 17 

.1333 PERCENT FUEL= 5.5147 

EQUIVALENCE RAT10= 2.0000 FIRST PRESSURE 

= 0. 100 

ATM 


TFMP 

VISCOSITY 

MONATOMIC 

INTERNAL FROZEN 

REACTION 

EQUILIBRI UM 

CP 

CP 

PRANDTL 

PRANDTL 

LEWIS 

OEG K 

POISE 

COND 

COND COND 

COND 

COND 

FROZ 

EQ 

FROZ 

CQ 

NUMBER 




CAL/I 

[G1 IK| 

DIM 



3000 

820. X 10-6 

653. X10- 

6 325.X10-6 978. X10- 

6 11644. X10-6 12622. X10-6 

0.5393 

4. 7915 

0.452* 

0.3114 

1.5103 

2000 

621. 

302. 

263. 565. 

204. 

769 . 

0.4996 

0 .5595 

0.5484 

0.4516 

3.0043 

3000 

787. 

954. 

189. 1143. 

12426. 

13569. 

0.5550 

6.0360 

0.3B22 

0.3502 

1.1004 

2000 

621. 

306. 

262. 568. 

638. 

1206. 

0.4999 

0.6904 

0.5463 

0.3552 

2.9504 
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Case 1207 - Input 


#EAC f ANTS 

H 2 . 

0 2 . 

AP 1 . 


00 0.050 M 

00 0.050 N 

00 0.900 M 


G 300.00 
G 300.00 

r, joo.oo 


NAMELISTS 

$ INH T2 KASE= 1207,P = 10,2C.MMHG=T, SHOCK = T 3 

iSHKINP Ul=1000, 1 100, 1200, 1250, 1300, 1350,1900, 1950, 1500, INCREO=T , I NCDFZ = T » 


Case 1207 - Output 


KtACTANTS 
H 2.0000 


-0. 

-0. 

-0* 

00 -0* 


0.0500 

M 

-0. 

G 

300*000 

-0 

0 2.0000 


-0. 

-0. 

-0* 

00 -0* 


0.0500 

M 

-0. 

G 

300.000 

-0 

AR 1*0000 
NAMELISTS 


-0. 

—0 * 

-0. 

00 -0* 


0.9000 

M 

-0. 

G 

300.000 

-0 

SINPF2 













KASE * 


1207, 











T 

0* 


0. 


0. 


, 0. 


♦ 

0. 

# 

0* 


0* 


0. 


0. 


0. 


* 

0. 

, 

0* 


0. 


0. 


0. 


0. 


* 

0. 

, 

0. 


0* 


0. 


0. 


0. 


> 

0* 

* 

0. 


0. 


0. 


0* 


0. 


* 

0. 

, 

0* 


0* 


0. 


0. 


0. 


» 

0. 

* 

0. 


0. 


0. 


0. 


t o* 


• 

0. 

, 

0. 


0. 


0. 


0. 


* o* 


• 

0. 

, 

0. 


0* 


0. 


0. 


, 0* 


* 




P 

1 • OOOOUOOE + 01 

2.0000000E+01, 

0* 


» o. 


f 

0. 

f 

0. 


0. 


0. 

, 

0. 


f o* 


» 

0* 

V 

0. 


0* 


0* 

f 

0. 


» o. 


t 

0. 

* 

0. 


0* 


0* 

, 

0* 


• o* 


f 

0* 

• 

0* 


0. 


0. 

* 









PS l A * 

F 

MMHG - 

T, NSQM = 

ft 









V 

0. 


0. 


0. 


V 0* 


f 

0. 


0* 


0. 


0. 

f 

0* 


, o. 


* 

0. 

, 

0. 


0. 












RHO - 

1 .OOOOOOOE+Ol 

2 .OOOOOOOE+Q l , 

0. 


* 0. 


, 

0. 

f 

0. 


0* 


0. 

, 

0* 


, 0. 


• 

0. 

t 

0* 


0* 


0. 

, 

0. 


• o. 


• 

0. 

t 

0* 


0* 


0. 

, 

0. 


f o. 


• 

0* 

• 

0. 


0. 


0. 

* 









ERAT1 0= 

F 

UF * 

F , FPCT = 

ft 

FA * 

F, 







MIX 

0. 


0. 

t 

0. 


• o. 


, 

0* 

, 

0. 


0. 


0. 

t 

0. 


t 0. 


t 

0. 

, 

0* 


0* 


.0. 

* 

0. 


» 






TP 

F 

HP 

F, SP = 

F, 

TV * 

F, 

uv 

F, 

sv 

- 

F, 


RKT 

F 

SHOCK = 

T, UETN v = 

F, 

OTTO = 

F, 

CR 

0. 


» 

SO = 0. 


IONS - 

F 

I DEOUGs 


0, TRACE = 0* 


, SI UNI T = 

F 

EUNITS* ft 


TRNSPT- 

T 

, FRUZN = 

ft PUNCH * 

ft 

NCJDATA* 

F, 







* END 














NO INPT2 VALUE GIVEN FUR OF, EQRAT » FA* OR FPCT 


SPECIES BEING CONSIDERED 
L 5/66 AR 

IN THIS SYSTEM 
J 9/65 H 

J 3/64 

HO 2 

J 3/61 H2 

L 1 1/65 

H20( S) 

Ll 1/65 

H20 < L ) 

J 3/61 M?U 

L 2/69 

H202 

J 6/62 0 

J 12/70 

OH 

J 9/65 

02 

J 6/61 03 







VSHKINP 


U1 

1 .OOOOOOOE+03, 

1 . 10000006*03, 

1 .2OOJQ0OE+Q3* 

1.2500000E+03* 

1.3000000E+03, 

1.35QC000E+03, 


L .4000000C+03, 
0* * 

1 .45000001+03, 

1.500U000E+O3* 

0. * 

0. « 

0. 

MACH1 * 

0* , 

0. r 

0. • 

0. * 

0. , 

0. 


0* • 

0. , 

0. * 

0. • 

0. • 

0. 


0. * 






GAMMA! * 

0* * 

INCOtO* T, REEL 

tU* ft INCDF2= 

T, REFLFZ* 

F* A1 

L.O’OOOOOE+OG, 


i END 


OF * 0. 

ENTHALPY 

I KG-MOL ) ID EG K)/KG 


EFFECTIVE FUEL 
HPP ( 2 I 


0. 


EFFECTIVE OXIDANT 
HPP ( 1 ) 


0. 


MIXTURE 

HSUBO 


KG-ATOMS/KG 


B0P(I,2> BOP(I»U 

0.26557648E-02 0. 

0.26557648E-02 0* 

0*23901 883E-01 0. 


B0( I) 

0*2655 764BE-02 
0. 26557648 E -02 
O.239O1803E-OI 
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SHOCK WAVE PARAMETERS ASSUMING 
EQUILIBRIUM COMPOSITION FOR INCIDENT SHOCKED CONDITIONS 


CASE 

NO. 1207 

MOLES 

ENERGY 

STATE 

TEMP 

DENS 11 


CHEMICAL FORMULA 


CAL/HOL 


DfcG K 

G/CC 

FUEL 

H 2.00000 

0.05000 

13.470 

G 

300.00 

-C. 

FUEL 

0 2.00000 

0.05000 

12.892 

G 

300.00 

-0. 

FUEL 

AR 1.00000 

0.90000 

9.191 

G 

300.00 

-0. 


O/F* 0. PERCENT FUEL* 100. 0000 EQUIVALENCE RATIO= 0.5000 REACTANT DENSI TY= 0. 

INITIAL GAS (1) 


MACH NO. 

3.0480 

3.3528 

3.6576 

3.8100 

3.9624 

4.1148 

4.2672 

4.4196 

4.5720 

Ul* M/SEC 

lOUO.OO 

1100.00 

1200.00 

1250.00 

1300.00 

1350.00 

1400.00 

1450.00 

1500.00 

P, ATM 

0.0132 

0.0263 

0.0263 

0.0263 

0.0263 

0.0263 

0.0263 

0.0263 

0.0263 

T v DEG K 

300 

300 

300 

300 

300 

300 

300 

300 

300 

RHO, G/CC 

2.0126-5 

4.0253-5 

4.0253-5 

4.0253-5 

4.0253-5 

4.0253-5 

4.0253-5 

4.0253-5 

4.0253-5 

H, CAL/G 

0.3 

0.3 

0.3 

0.3 

0.3 

0.3 

0.3 

0.3 

0. 3 

$, CAL/ISHO 

1.2406 

1.2041 

1.2041 

1.2041 

1.2041 

1.2041 

1.2041 

1.2041 

1.2041 

M, MOL wr 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

CP, CAL/IGMK) 

0.1372 

0.13 72 

0.1372 

0.1372 

0.1372 

0. 1372 

0.1372 

0. 1372 

0.1372 

GAMMA IS) 

1.6249 

1.6249 

1.6249 

1.6249 

1.6249 

1.6249 

1.6249 

1.6249 

1.6249 

SON VEL, M/SEC 

328.1 

328.1 

328.1 

32 8.1 

328.1 

328.1 

328. 1 

328.1 

328.1 

DIO NOT CONVERGE FOR Ul = 

* 1000.00 

ANSWERS PROBABLY NOT RELIABLE, SOLUTION MAY NOT EXIST 

SHOCKED GAS (2) 
U2, M/SEC 

— INCIDENT — EQUILIBRIUM 
575.88 667.74 576.55 

560.68 

549.47 

540.62 

532.79 

525.22 

517.53 

P, ATM 

0.1145 

0.2152 

0.3235 

0.3686 

0.4139 

0.4604 

0.5086 

0.5590 

0.6118 

T, DEG K 

1542 

1527 

1817 

1933 

2044 

2153 

2259 

2361 

2457 

RHO, G/CC 

3.4949-5 

6.63 10-5 

8.3781-5 

8.9742-5 

9.5234-5 

1.0052-4 

1.0577-4 

1.1113-4 

1.1667-4 

H, CAL/G 

93.6 

91.6 

132.6 

149.4 

166. 1 

183.1 

200.6 

218.6 

237.1 

S, CAL/ I G ) I K ) 

1.3281 

1.2943 

1.2979 

1.3001 

1.3026 

1.3052 

1.3080 

1.3109 

1.3139 

M, MOL WT 

38.619 

33.619 

38.614 

38.608 

38.597 

38.580 

38.552 

38.510 

38.453 

IDLV/DLP) r 

-l .00001 

-1.00000 

-1.00005 

-1.00010 

-1.00021 

-1.00041 

-1.00073 

-1.00123 

-1.00193 

I DLV/DLT ) P 

1.0003 

1.0002 

1.0018 

1.0037 

1.0070 

1.0124 

1.0208 

1.0330 

1.0493 

CP, CAL/I .IU) 

0.1404 

0.1401 

0.1442 

0.1477 

0.1530 

0.1611 

0. 1726 

0.1882 

0.2078 

GAMMA (S) 

1.5792 

1.5807 

1.5582 

1.5410 

1.5173 

1.4865 

1.4501 

1.4111 

1.3733 

SUN VtL, M/SEC 

724.0 

721 .0 

780.8 

800.8 

817.4 

830.6 

840.6 

848.1 

854. 2 

P2/PI 

5.915 

8.178 

12.294 

14.008 

15.729 

17.495 

19.328 

21.243 

23.247 

T2/T1 

4.428 

5.092 

6.057 

6.442 

6.815 

7.178 

7.531 

7.870 

8.191 

H2/M1 

1.0256 

1.0256 

1.0255 

1.0253 

1.0251 

1.0246 

1.0238 

1.0227 

1.0212 

RH02/RH01 

1.7365 

1.6473 

2.0614 

2.2294 

2.3659 

2.4971 

2.6277 

2.7607 

2.8984 

V2( U1-U2 1 M/SEC 

424. 12 

432.26 

623.45 

689.32 

750.53 

809.36 

867.21 

924.78 

982.47 

MOLE FRACTIONS 

AR 

9.2306-1 

9.2306-1 

9.2294-1 

9.2280-1 

9.2255-1 

9.2213-1 

9.2146-1 

9.2047-1 

9.1910-1 

H 

1.4775-7 

7.1348-8 

4.30L3-6 

1.5667-5 

4.7564-5 

1.2521-4 

2.9107-4 

6.0405-4 

1.1305-3 

H02 

9.8099-9 

1.0364-8 

6 .7804-8 

1.2217-7 

2.0224-7 

3. L325-7 

4.5774-7 

6.3422-7 

8.3714-7 

H2 

3.0708-6 

1. 8670-6 

3.5421-5 

8.9393-5 

1.9761-4 

3.9339-4 

7.1392-4 

1.1893-3 

1.8303-3 

H2U 

5.1238-2 

5. 1249-2 

5.1028-2 

5.0786-2 

5.0385-2 

4.9758-2 

4.8B34-2 

4.7553-2 

4.5891-2 

H202 

7.212-10 

9. 131-10 

4.464 -9 

7.362 -9 

1.131 -8 

1.642 -8 

2.267 -8 

2.984 -8 

3.758 -8 

J 

3.3010-6 

2.0013-6 

3.9835-5 

1.0212-4 

2.2910-4 

4.6321-4 

8.5589-4 

1.4579-3 

2.3083-3 

OH 

7.8598-5 

5.9618-5 

4.1708-4 

7.6735-4 

1.2923-3 

2.0296-3 

2.9976-3 

4.1846-3 

5.5478-3 

02 

2.5621-2 

2.5626-2 

2 .5532-2 

2.5439-2 

2.5299-2 

2.5103-2 

2.4848-2 

2.4539-2 

2.4187-2 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE MOLE FRACTIONS WERE LESS THAN 0.50000E-08 FOR ALL ASSIGNED CONDITIONS 
H20ISI H20IL) 03 


0/ F = 


0. 


TRANSPORT PROPERTIES UF 
PERCENT FUEL* LOO. OOOC 


THE SHOCKED GAS ASSUMING EQUILIBRIUM COMPOSITION 
EQUIVALENCE RATIO* 0.5000 FIRST SHOCK PRESSURE* 


0.1145 AT P 


TEMP 

VISCOSITY MONATOMIC 

INTERNAL 

FROZEN 

REACTION 

EQUILIBRIUM 

CP 

CP 


COND 

COND 

COND 

COND 

COND 

FROZ 

eo 


PRANDTL PRANDTL LEWIS 

FROZ EQ NUMBER 


DEG K POISE 


CAL/(CMHSECMK> 


CAL/ ( G) C K I 


U I MENS IONLESS 


1542 

1527 

1817 

1933 

2044 


723. X 10-6 140.X1O-6 

719. 139. 

807. 156. 

842. 163. 

874. 169. 


13 

13 

16. 

18. 

19, 


X10-6 


15 3. X10-6 
152. 

173. 

181. 

188. 


I.X10-6 154 . XI 0-6 0.1396 

U 153. 0.1395 

8. 181. 0.1405 

18. 198. 0.1408 

35. 223. 0.1411 


0.1404 

0.1401 

0.1442 

0.1477 

0.1530 


0.6600 0.6581 
0.6602 0.6590 
0.6570 0 .6436 
0.6558 0.6268 
0.6545 0.5992 


1. 5041 
1.4339 
1.8061 
1.9897 
2.1791 


2153 

2259 

2361 

2457 


906. 

936. 

965. 

992. 


176. 

182. 

168. 

195. 


20. 196. 65. 

21. 203. 113. 

22. 211. 162. 

23. 218. 274. 


261. 0.1413 
316. 0.1416 
393. 0.1418 
492. 0.1420 


0.1611 0.6530 
0.1726 0.6512 
0.1882 0.6488 
0.2078 0.6456 


0.5595 2.3617 
0.5112 2.5206 
U .4620 2.6397 
€.4187 2.7101 


\ 
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SHOCK HAVE PARAMETERS ASSUMING 
FROZEN COMPOSITION FOR INCIDENT SHOCKED CONDITIONS 


CASE NO. 1207 

CHEMICAL FORMULA 
FUEL H 2.00000 

FUEL 0 2.00000 

FUEL AR 1.00000 


MOLES 

ENERGY 

CAL/MOL 

STATE 

TEMP 
OFG K 

OENSITY 

G/CC 

0.05000 

13.478 

G 

300.00 

-0. 

0.05000 

12.892 

G 

300.00 

-0. 

0.90000 

9.191 

G 

300.00 

-0. 


0/F 3 0. PERCENF FUEL=100.0000 EQUIVALENCE RATIO 3 0.5000 REACTANT DENSITY 3 0. 


INITIAL GAS (!) 


MACH NO. 

3.0480 

3.3528 

3.6576 

3.8100 

3.9624 

4. 1148 

4.2672 

4.4196 

4.5720 

Ul, M/SEC 

1000.00 

1100.00 

1200.00 

1250.00 

1300.00 

1350.00 

1400.00 

1450.00 

1500.00 

P, ATM 

U . 01 32 

0.0263 

0.0263 

0.0263 

0.0263 

0.0263 

0.0263 

0.0263 

0.0263 

T, DEG K 

300 

300 

300 

300 

300 

300 

300 

300 

300 

KHO , G/CC 

2.0126-5 

4.0253-5 

4.0253-5 

4.0253-5 

4.0253-5 

4.0253-5 

4.0253-5 

4.0253-5 

4.0253-5 

H, CAL/G 

Cl. 3 

0.3 

0.3 

0.3 

.0.3 

0.3 

0.3 

0.3 

0. 3 

S, CAL/IG MX ) 

1.2406 

1.2041 

1.2041 

1.2041 

1.2041 

1.2041 

1.2041 

1.2041 

1.2041 

K , MQL WT 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

CP, CAL/( CMK) 

0.1372 

0.13 72 

0.1372 

0.1372 

0.1372 

0.1372 

0. 1372 

0.1372 

0.1372 

GAMMA (SI 

1.6249 

1.6249 

1.6249 

1.6249 

1.6249 

1.6249 

1.6249 

1.6249 

1.6249 

SON VEL, M/SEC 

328.1 

320.1 

328.1 

328.1 

328.1 

328.1 

328.1 

328.1 

328.1 


SHOCKED GAS 12) 
U2, M/SEC 

— INCIDENT — FROZEN 
317.25 332.77 

349.41 

358.06 

366.89 

375.88 

395.00 

394.24 

403.59 

P, ATM 

0.1488 

0.3616 

0.4318 

0 . 4692 

0.5082 

0.5487 

0.5908 

0.6345 

0.6797 

T , DEG K 

1076 

1247 

1433 

1532 

1635 

1742 

185 2 

1967 

2085 

RHG, G/CC 

6.3440-5 

1.3306-4 1 

l .3824-4 

1.4052-4 

1.4263-4 

1.4457-4 

1 .4637-4 

1.4805-4 

1.4961-4 

H # CAL/G 

107.7 

131.6 

157.7 

171.7 

186.1 

201.2 

216.6 

232.9 

249. 7 

S, CAL/ (G HO 

1.2892 

1 . 2629 

1.2731 

1.2781 

1.2830 

1.2879 

1.2927 

1.2974 

1.3020 

h, MOL WT 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

37.654 

CP, CAL/IGKK) 

0.1396 

0. 1400 

0.1404 

0.1407 

0.1409 

0.1411 

0. 1413 

0.1415 

0.1418 

GAMMA (S) 

1.6079 

1.6050 

1.602'J 

1.6005 

1.5990 

1.5975 

1. 5960 

1.5945 

1.5930 

SON VEL, M/SEC 

616.1 

664.8 

712.1 

735.9 

759.8 

783.6 

007.9 

832.1 

856. 3 

P2/P1 

11.307 

13.741 

16.409 

17.831 

19.312 

20.85? 

22.451 

24.110 

25.827 

T2/TI 

3.587 

4.157 

4.778 

5.108 

5. 450 

5.806 

6.174 

6.555 

6.949 

M2/M1 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

i.0000 

RH02/KH01 

3.1521 

3.3056 

3.4343 

3.4910 

3.5433 

3.5916 

3.6364 

3.6779 

3.7167 

V2 I UL-U2 ) M/SEC 

602.75 

767.73 

850.59 

891.94 

933.1 1 

974.12 

1015.00 

1055.76 

1096.41 

MOLE FRACFIONS 

H2 

0.05000 

0.05000 

0.05000 

0.05000 

0.05000 

0.05000 

0.05000 

0.05000 

0.05000 

02 

0.05001) 

0.05000 

0.05000 

0.05000 

0.05000 

0.05000 

0.05000 

0.05000 

0.05000 

AR 

0.90000 

0.90000 

0.90000 

D. 90000 

0.90000 

0.90000 

0.90000 

0.90000 

0.90000 


0/F* 


0. 


TRANSPORT PROPERTIES OF THE SHOCKED GAS ASSUMING FROZEN COMPOSITION 
PERCENT FUtL = LOD .0000 EQUIVALENCE RATIO 3 0.5000 FIRST SHOCK PRESSURE 3 0.1438 ATM 


TEMP VISCOSITY MONATOMIC INTERNAL FROZEN 

COND COND COND 


CP PRANDTL 

FROZ FROZ 


OEG K POISE 


CAL/ ( CM M SEC ) ( K ) CAL/ CGI ( K I 


1076 
1 2 A 7 
1 A3 3 
1532 
1635 


570.X10-6 125.X 

630. 139. 

691. 152. 

722. 159. 

754. 166. 


10-6 1 4 • X 10-6 

17. 

20 . 

21 . 

23. 


140 . XI 0-6 0.1396 
155. 0.1400 
172. 0.1404 
181. 0.1407 
109. 0.1409 


0.5706 

0.5673 

0.5641 

0.5625 

0.5608 


1742 786. 
1852 819. 
1967 852. 
2085 B86. 


174. 25. 
181. 27. 
188. 29. 
196. 31. 


198. 0.1411 0.5591 
208. 0.1413 0.5574 
217. 0.1415 0.5558 
227. 0.1418 0.5542 
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Case 1565 - Input 


REACTANTS 
N 2. 

0 2 . 

ARU 

Cl. 02. 

C 7. HE. 

C 8. H 18. 


00 

00 

00 

00 


♦ 7552 A 
.23144 
.01286 
.00046 

.4 2867. 
.6 -59740. 


G 64 7.95 0 

G647.95 0 

G647.95 0 

G647.95 0 

L 29B. 15 F 
L 298.15 F 


NAMELISTS 

JINPT2 KASE*1565 * UV = T tV = 300*225.24, 0F=T f M I X* 17, TRACE* l .6-15 $ 

Case 1565 - Output 


reactants 

















N 2.0000 


-0. 

-0. 

-0 


00 

-0. 


0.7552 

-0. G 

647.950 

0 

-0 




0 2.0000 


-0. 

-0. 

-0 


00 

-u. 


0.2314 

-0. G 

647.950 

0 

-0 




AR 1.0000 


-0. 

-0. 

-0 


00 

-0. 


0.0129 

-0. G 

647.950 

0 

-0 




C 1.0000 

0 

2.0000 

-()* 

-0 


00 

-0. 


0.0005 

-0. G 

647.950 

0 

-0 




C 7.0000 

H 

8.0000 

-0. 

-0 



-0. 


0.4000 

2867.00 L 

298.150 

F 

-0 




C 8.0000 

H 

18.0000 

-0. 

-0 



-0. 


0.6000 

59740.00 L 

296.150 

F 

-0 




NAMELISTS 

















*INPT2 

















KASE = 


1565, 















T 

0. 


0. 


» 

0. 


» 

0. 

« 0. 



0. 





0. 


0. 


t 

0. 


• 

0. 

t 0. 


9 

0. 



# 


0. 


0. 


• 

0. 


# 

0. 

9 0. 


v 

0. 



9 


0. 


0. 


# 

0. 


• 

0. 

• 0. 


, 

0. 



, 


0. 


0. 



0. 


* 

0. 

9 0. 


9 

0. 



f 


0. 


0. 



0. 


» 

0. 

t 0. 



0. 



9 


0. 


0. 



0. 



0. 

9 0. 


, 

0. 



9 


0. 


0. 



0. 


* 

0. 

9 0. 


9 

0. 



9 


0. 


0. 



0. 


t 

0. 








P = 

0. 


0. 



0. 


t 

0. 

9 0. 



0. 





0. 


0. 



0. 


* 

0. 

9 0. 


9 

0. 



t 


0. 


0. 



0. 


• 

0. 

9 0. 


9 

0. 



9 


0. 


0. 



0. 



0. 

9 0. 



0. 



f 


0. 


0. 














PS1 A = 

F, 

MMHG = 

F, NSQM 


F, 












V 

3 • 00000006*02, 

2.2524000E+02, 

0. 


# 

0. 

9 0. 



0. 



f 


0. 

0. 

• 

0. 


* 

0. 


* 

0. 

, o. 



0. 



* 

KHO 

0. 


0. 



0. 



0. 

9 0. 



0. 





0. 

, 

0. 


, 

0. 


, 

0. 

9 0. 



0. 



9 


0. 

, 

0. 


, 

0. 


, 

0. 

9 0. 



0. 



f 


0. 

, 

0. 


9 

0. 


9 

0. 

, 0. 


9 

0. 





0. 

» 

0. 


* 












ERATIO= 

F, 

OF 

T, FPCT 


F, 

FA 


F, 









MIX 

1.70000UOE+01, 

0. 


t 

0. 



0. 

9 0. 



0. 





0. 


0. 


, 

0. 


, 

0. 

9 0. 



0. 



t 


0. 

• 

0. 


* 

0. 


* 









TP 

F, 

HP = 

F, SP 


F, 

Ttf 

- 

F, UV = T, 

sv 

F, 






RKT - 

F, 

SHOCK = 

F » OETN 

= 

F, 

OTTO 

* 

F, CR *■ 0. 

9 

SO 

0. 



, 

SO 

IONS = 

F, 

IDEBUG- 


0, TRACE = 

i.OOOOOOOfc-L5, SIUM1I> 

F, EUN I TS= F, 






T RNSP F - 

r. 

FKOZN = 

F, PUNCH 


F, 

NQDATA= 

F, 









$> END 

















SPECIES BEING CONSIDERED IN THIS SYSTEM 













L 5/66 

AR 


3 3/61 

C(S> 



3 

3/61 

c 

J12/67 

CH 



3 

fc/69 

CH2 

J 3/61 

CH20 

3 6/69 

CH3 



3 

3/61 

CH4 

J 6/69 

CN 



J 

6/66 

CNN 

312/70 

CN2 


3 9/65 

CO 



J 

9/65 

C02 

J12/69 

C? 



J 

i/ 67 

C2H 

J 3/61 

C2H2 

J 9/65 

C2H4 



L 

5/72 

C2H6 

J 3/67 

C2N 



J 

3/61 

C2N2 

J 9/66 

C20 


312/69 

C3 



J 

6/68 

C 302 

312/69 

C4 



312/69 

C5 

J 9/65 

H 


L 12/69 

HCN 



31 

2/70 

HCO 

J12/70 

HNCO 



3 

3/63 

HNO 

J 3/64 

H02 


J 3/61 

H? 



Lll/65 

H2CMS) 

Li 1/65 

H20(L) 



3 

3/6 l 

H20 

L 2/69 

H202 

J 3/61 

H 



312/70 

NCU 

312/71 

NH 



J l ?/6 S 

NH2 

3 9/65 

NH3 


3 6/6 3 

NO 



J 

9/64 

N02 

Ji 2/64 

N03 



J 

9/65 

N2 

J 1 2/65 

N2H4 

J12/64 

N2U 



J 

9/64 

N204 

JI2/70 

N3 



3 

6/62 

0 

312/70 

OH 


J 9/65 

U2 



3 

6/61 

03 









OF * 17.000000 

INTERNAL ENERGY 
(KG-MOLMOEG K) /KG 


EFFEC1 IVE FUEL 
HPP ( 2 } 

-0. 15164043E+ 33 


EFFECTIVE OXIDANT 
HPP III 

0.20 36592 OE +02 


KG-ATOMS/KS 

N 

0 

AR 

C 

H 


BOP( 1,2) 

0.. 

0. 

0. 

0.72407449E-01 
0. 12927296E + 00 


BOP (1,1) 
0.539199106-01 
0. 14486447E-01 
0.J219I849E-03 
0. L0452182E-04 
0. 


N 

-12.5?4 

-12.366 


0 

-15.095 

-14.965 


AR 

-23.385 
-23. 104 


C 

-19.796 

-19.710 


H 

-11.805 
-11.71 i 


14.000 

3.000 


MIXTURE 

HSUftO 

0. 1081 001 1 E+02 

Bom 

0 • 50924358E-0 i 
0. I 3681644E-01 
0. 3040341 3E-03 
0. 40 32 5075 E-0 2 
0. 71 8I8314E-02 
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THERMODYNAMIC EQUILIBRIUM COMBUSTION PROPERTIES AT ASSIGNED 
VOLUME 






HT FRACTION 

ENERGY 

STATE 

TEMP 

DENSIT 


CHEMICAL FORMULA 

I SEE NOTE) 

Ncal/mol 


DEG K 

G/CC 

OXIDANT 

N 

2.00000 


0.75524 

1134.555 

G 

647.95 

-0. 

uxidant 

0 

2.00000 


0.23144 

1292.515 

G 

64 7.95 

-0. 

OXIDANT 

AR 

l. 00000 


0.01286 

450.192 

G 

647.95 

-0. 

OXIDANT 

C 

L .00000 

U 2.00000 

0.00046 

-91701.919 

G 

64 7.95 

-0. 

FUEL 

c 

7.00000 

H 8.00000 

0.40000 

2867.000 

L 

298.15 

-0. 

FUEL 

c 

8.00000 

H 18.00000 

0.60000 

-59740.000 

L 

298.15 

-J. 



0/F - 

17.0000 PERCENT FUEL* 5.5556 

EQUIVALENCE RATIO* 0.8519 REACTANT OENSI TY= 

0. 



THERMODYNAMIC PROPERTIES 

U, CAL/G 21. 4B 21.48 
P, ATM 25.578 34.181 
T, DEG K 2693 2704 
RHO, G/CC 3.3333-3 4.4397-3 
H, CAL/G 207.3 207.9 
S v CAL/ (G ) <K ) 2.0960 2.0762 


M« MOL WT 28.800 
( ULV/DLP) T -1.00380 
( DLV/DLT ) P 1.0946 
CP, CAL/(G)U) 0.5164 
GAMMA (S) 1.1852 
SON VEL , M/SEC 960.0 


26.820 

-1.00353 

1.0676 

0.5040 

1.1881 

962.7 


MOLE FRACTIONS 


AH 

C 

CH 

CH20 

CH3 

CN 

CN2 

CO 

CU2 

C20 

H 

HCN 

HCO 

HNCO 

HNO 

H02 

H2 

H20 

H202 

N 

NCO 

NH 

NH2 

NH3 

NU 

N02 

N03 

N2 

N20 

N3 

0 

OH 
□ 2 
03 


8.7562-3 8.7623-3 
6.404-15 5.993-15 
1.158-15 1.172-15 
2.843-10 3.212-iO 
3.222-15 3.679-15 
7.571-12 7.784-12 
2.283-15 2.739-15 
1.1627-2 1.0745-2 
1.0451-1 1.0547-1 
1.155-15 1.262-15 
4.4450-4 3.8337-4 
3.005-10 3. 241-10 
1.4378-8 1.5108-8 
2.6951-9 3.1952-9 
1.0667-6 1.1919-6 
6.3652-6 6.9525-6 
1.6653-3 1.5251-3 
9.8202-2 9.8591-2 
9.1393-7 1.0745-6 
2.5831-7 2.4367-7 
3.186-10 3.581-10 
1.8630-8 1.9082-B 
3.2741-8 3.5684-8 
1.3017-8 1.5106-8 
1.1523-2 1.1624-2 
1.4110-5 1.6171-5 
8.310-11 1.102-10 
7.2754-1 7.2800-1 
2.8153-6 3.2851-6 
3.821-11 4,774-11 
1.1500-3 1.0335-3 
6.6493-3 6.3554-3 
2.7908-2 2.7480-2 
1.1540-8 1.3380-8 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUI WHOSE MOLE FRACTIONS WERE LESS THAN 


0. 10DC0E-14 FOR ALL ASSIGNED CONDITIONS 


CIS) CH2 

C2N2 C3 


CH4 CNN C2 C2H C2H2 C2H4 

C 302 C4 C5 H20(S) H20(L> NZH4 


C2F6 C2N 

N2C4 


NOTE. WEIGHT FRACTION OF FUEL IN TOTAL FUELS AND OF OXIDANT IN TOTAL OXIDANTS 


NU TRANSPORT OATA WAS FOUND FOR THE SPECIES H02 


TRANSPURT PROPERTIES A! ASSIGNED VOLUME 



0/F*- 17. 

.0000 PER 

CENT FUEL* 

5.5556 

EQUIVALENCE 

RATION 0.8519 

INTERNAL ENERGY* 

21.46 

cal/g 


TEMP 

VISCOSITY 

MONATOMIC 

INTERNAL 

FROZEN 

REACTION 

EQUILIBRIUM CP 

CP 

PRANOTL 

PRANOTL 

LEWIS 



COND 

CONO 

COND 

COND 

CONO 

FROZ EQ 

FROZ 

EQ 

NUMBER 


DEG K POISE CAL/t CM) I SEC MKI CAL/ (G) IK) DIMENSIONLESS 


2693 8L8.X10-6 215.X10-6 189.X10-6 404.X10-6 270.X10-6 674.X10-6 0.3413 0.5164 0.6913 0.6265 1.3049 

NO TRANSPORT DATA WAS FOUND FUR THE SPECIES H02 

2704 821. 215. 190. 405. 250. 655. 0.3414 0.5040 0.6915 0.6317 1.2930 
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Case 5612 - Input 


REACTANTS 
N 2. HA. 

BE1. 

H 2. 02. 


20 . 

! 00 . 


12050. 

0.0 

-44880. 


L298.15 

5298.15 

1298.15 


F 1.0036 
F 1.85 
0 1.407 


INSERT BEO(L) 

NAMELISTS 

$ 1 NPT2 KAS£ = 5612,FPCT = T, NIX = 67, P=1000, 500,PSIA = T, KKT = T » NOOATA=T * 
TRKTINP PCP=3,10,30,300, FR02=F t 


Case 5612 - Output 


REACTANTS 
N 2.0000 
BE 1.0000 
H 2.0000 
INSERT 
NAMELISTS 


2.0000 

BEOt L> 


- 0 . 

- 0 . 

- 0 . 


80.0000 

20.0000 

100.0000 


12050.00 

0 . 

-4*880.00 


298.150 

298.150 

298.150 


1.00860 
1 . 8 5 000 
1.40700 


*INPT2 


KASE 

» 


5612, 










T 

* 

0. 


0. 


0. 


t 

0. 


0. 

f o. 



0. 


0. 


0. 


t 

0. 


0. 

t o. 



0. 


0. 


0. 


• 

0. 


0. 

> o. 



0* 


0. 


0. 


« 

0. 


0. 

, 0. 



0. 


0. 


0. 


t 

0. 


0. 

« o. 



0. 


0. 


0. 


t 

0. 


0. 

f o. 



0. 


0. 


0. 


t 

0. 


0. 

» o. 



0. 


0. 


0. 


• 

0. 

V 

0. 

• 0. 



0. 


0. 


0. 



0. 

» 



P 

=. 

1. 

OOOOOOOt+03, 

5.0000000E+02, 

0. 



0. 

t 

0. 

» 0. 



0. 


0. 

, 

0. 



0. 

« 

0. 

« o. 



0. 


0. 


0. 



0. 

t 

0. 

t o. 



0. 


0. 

, 

0. 



0. 


0. 

t o. 



0. 


0. 

* 








PSIA 

- 

T 

» HMHG * 

F, NSQM = 

Ft 








V 

. 

0. 


0. 


0. 


f 

0. 

# 

0. 

t o. 



0. 


0. 


0. 


v 

0. 

9 

0. 

• o. 



0. 











RHO 

* 

i. 

OOOOOOOE*03, 

5 . 0000000 1*0 2 » 

0. 



0. 


0. 

t 0. 



0. 


0. 

, 

0. 


, 

0. 

, 

0. 

t o. 



0. 


0. 

9 

0. 


9 

0. 

f 

0. 

t o. 



0. 


0. 

9 

0. 


9 

0. 

t 

0. 

, 0. 



0. 


0. 

• 








ERAT1 0=» 

F 

, OF * 

F, FPCT = 

T, 

FA « 

F, 






MIX 

« 

6. 

7000000E+01, 

0. 

9 

0. 


t 

0. 


0. 

t o. 



0. 

, 

0. 

9 

0. 


9 

0. 

v 

0. 

t o. 



0. 

• 

0. 

• 

0. 


• 





TP 

= 

F 

, HP 

F, SP 

F, 

TV * 

F, 

UV 

* F , 

sv 

* F , 


RKT 

= 

T 

, SHOCK - 

F, DETN *= 

F, 

OTTO * 

Ft 

CR 

* 0. 


, so 

* 0. 

IONS 

* 

F 

, IOEBUG* 

0, 

TRACE * 0. 



, SION I T* 

F, 

EUNITS* 

F* 

TRNSPT 

> 

r 

t FROZN * 

F, PUNCH * 

F, 

NODATA* 

T, 







SPECIES BEING CONSIDERED IN THIS SYSTEM 


J 9/61 
J 6/71 
J 3/67 
J 9/65 
LI 1/65 
J12/65 
J 9/65 
J 6/62 


BE I S ) 
BEOISI 
8E02H2 
H 

H20(L) 

NH2 


J 9/6 1 
J 6/71 
J 9/63 
J 3/6 3 
J 3/61 
J 9/65 
J12/65 
J12/70 


BEIL) 

BEO(S) 

BE20 

HNO 

H20 

NH3 

N2H4 

OH 


J 9/61 
J 6/71 
J 9/63 
J 3/64 
L 2/69 
J 6/63 
J12/64 
J 9/65 


BE 

6E3(L> 

8E202 

H02 

H202 

NO 

N20 


3/63 

9/63 

9/63 

3/61 

3/61 

9/64 

9/64 

6/61 


BEH . 

BEO 

BE303 


N02 

N204 


J 6/6 3 BEN 
J 9/63 BEOH 
J 9/63 BEAO* 
L 1 1/65 H20f S ) 
J 12/71 NH 
J 1 2/6* N03 

J 12/7 0 N3 


EUL * 
SUBAR » 
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PCP = J.OOOOUOOE-t-OO, l.OOOOOOOE + Ol, 3.0000000E+01. 

3. 0000 00 0E+ 02* 0. 

0. 

» o. 

f o. » 

0. , 0. 

0. 

• o. 

* 0. 9 

0. 9 0/ 

0. 

• 0. 

. 9 0. , 

0. 9 

NFZ 

1, 



F END 




OF = 0.497537 





EFFECTIVE FUEL 

EFFECTIVE OXIDANT MIXTURE 

ENTHALPY 

HPP(2> 

HPPI 1) 

HSUBO 

I KG-MOL) ( OEG K 1 /KG 

0.15138364E+03 

-0.66 39 749 IE *03 

-0.1176B468E*03 

KG-ATOMS/KG 

BOP( I « 2) 

BOP ( I 9 1 1 

BO < 1 1 

N 

0.49979349E-D1 

0. 

0.3345Z664E-0I 

H 

0.99858698E-01 

0. 5 8798 038 E-Q 1 

0.8630B6806-01 

BE 

0. 221 92 139E-01 

0. 

0.14868733E-01 

0 

3. 

0. 58798038E- 01 

0.19403352E-01 

PT N H 

BE 0 



1 -12.759 -8.578 

-13.145 -20.218 

11.000 


2 -12.897 -8.719 

-13.764 -20.839 

3.000 


PC/PT= 1.748578 T *= 

2844.77 



2 -12.897 -8.720 

-13.766 -20.841 

2.000 


PC/PT* 1.751558 T = 

2844.13 



3 -13.027 -8.855 

-14.461 -21.526 

3.000 


3 -13.084 -8.910 

-14.166 -21.236 

3.000 


4 -13.688 -9.517 

-14.169 -21.233 

3.000 


4 -13.476 -9.311 

-15.668 -22.379 

4.000 


5 -13.730 -9.579 

-18.318 -24.378 

4.000 


5 -13.752 -9.600 

-18.141 -24.210 

3.000 


6 -14.276 -10.158 

-26.901 -30.508 

4.000 



THEORETICAL RUCKET PERFORMANCE ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION 


PC *= 1000.0 PSIA 

CASE NO. 5612 

CHEMICAL FORMULA 
FUEL N 2.00000 H 4.00000 

FUEL Bt t. 00000 

OXtOANT H 2.00000 0 2.UOOOO 

0/F- 0.4925 PERCENT FUEL= 67.0000 


WT FRACTION 

ENERGY 

STATE 

TEMP 

DENSITY 

(SEE NOTE) 

CAL/ MOL 


DEG K 

G/CC 

0.80000 

12050.000 

L 

298.15 

1.0036 

0.20000 

0. 

S 

298.15 

1.8500 

1.00000 

-44880.000 

L 

298.15 

1.4070 

EQUIVALENCE RATIO* 2.9904 REACTANT DENSITY* 

1.18 90 



PC/P 
P f ATM 
T, DEG K 
RHO, G/CC 
H t CAL/G 
S, CAL/ICHO 


CHAMBER THROAT 
1*0000 1.7516 

68.046 38.849 

3068 2844 

4.4700-3 2.7624-3 
-233.9 -432.6 

3.4110 3.4110 


EXIT EXIT EXIT EXIT 

3.0000 10.000 30.000 300.00 

22.682 6.8046 2.2682 0.2268 

2721 2423 2071 1402 

1.6878-3 5.7008-4 2.2271-4 3.2936-5 

-610.0 -987.1 -1282.2 -1753.7 

3.4110 3.4110 3.4110 3.4110 


M, MOL wr 
(DLV/DLP) r 
( ULV/OLT ) P 
CP, CAL/IGMX) 
GAMMA (S) 

SUN VEL, M/SEC 
MACH NUMBER 


16.536 
-i. 00511 
1.0924 
0.9894 
1.1625 

1339.1 

0. 


16.595 

-1.00328 

1.0633 

0.9257 

1.1668 

1209.4 

1.000 


16.612 

-1.00273 

0. 

0. 

0.9973 

1165.3 

1.522 


16.654 

-1.00141 

1.0317 

0.8341 

1.1777 

1193.5 

2.104 


16.688 

-1.00036 

1.0093 

0.7515 

1.1920 

1109.1 

2.671 


16.700 
-l. 00001 
1.0001 
0.6703 
1.2159 

921.1 
3.872 


AE/AT 

CSTAR, FT/SEC 
CF 

I VAC t LB-SEC/ L6 
ISP, LB-SEC/LB 


1.0000 

6351 

0.666 

244.2 

131.5 


1.1895 

6351 

0.917 

259.2 

180.9 


2.4888 
6351 
l .297 
305.1 

256.0 


5.4000 

6351 

1.530 

337.6 

302.0 


30.326 
6351 
1.842 
38 3.6 

363.6 


MULE FRACriONS 

Bfc 

0*00003 

0.00001 

0.00000 

0.00000 

0. 

BEH 

0.00001 

0.00000 

0.00000 

0.00000 

0. 

BbO(S) 

0. 

0. 

0. 

0. 

0.19872 

BEO(S) 

0. 

0. 

0.07071 

0.19809 

0. 

BtO(L) 

0.19539 

0.19660 

0.12632 

0. 

0. 

BEOH 

0.00032 

0.00013 

0,00008 

o.oooot 

0.00000 

8E02H2 

0.00207 

0.00149 

0.00120 

0.00047 

0.00010 

H 

0.01490 

0.00974 

0.00821 

0.00433 

0.00111 

H2 

U. 50639 

0.51002 

0.51105 

0.51362 

0.51586 

H20 

0.05765 

0*05863 

0.05907 

0.05999 

0.06052 

NH2 

0.00002 

0.00001 

0.00001 

0.00000 

0.00000 

NH3 

0.00010 

0.00006 

0.00004 

0.00007 

0.00001 

NO 

0.00004 

0.00002 

0.00001 

0.00000 

0.00000 

N2 

0.22247 

0.22295 

0.22307 

0.22337 

0.22366 

0 

0.00001 

0.00000 

0.00000 

0.00000 

O.OOQOO 

OH 

0.00060 

0.00033 

0.00025 

0.00009 

0.00001 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHUSE MOLE 


0. 

0. 

0.19891 

0. 

0. 

0. 

0.00000 

0.00001 

0.51665 

0.06066 

0. 

0.00000 

0. 

0.22376 

0. 

0.00000 

T IONS WERE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 


btl SI bE(L) BEN 

H20IS) H20IL) H2U2 

?J3 02 03 


BE70 BE202 8E303 BE404 HNO 

NH N02 N03 N2H4 N20 


H02 

N204 


NOTE. WEIGHT FRACTION Of FUEL IN TOTAL FUELS AND OF OXIDANT !« TOTAL OXIDANTS 
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TRANSPORT PROPERTIES OF ROCKET EXHAUST ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION 



0/F* 0.4925 

PERCENT 

FUEL* 67.0000 

EQUIVALENCE RATIO* 

2.9904 

CHAMBER 

PRESSURE* 68.046 ATM 


TEMP 

VISCOSITY MONATOMIC 

INTERNAL 

FROZEN 

REACTION 

EQUILIBRIUM 

CP 

CP 

PRANDTL PkANDIL 

LEWIS 

DEG K 

CONO 

POISE 

COND 

COND 

CAL/ICMM SEC) 1 

COND 

I K t 

C3ND 

FROZ 

CAL/ 

EQ 

( G I IK) 

FROZ EQ 

DIMENSIONLESS 

NUMeER 


3068 

6B8.X10-6 

766. XI 0-6 

67 3. X 10-6 

1439. X 10-6 

1165.X10-6 

2603.X10-6 

0.8782 

1.1951 

0.4200 

0.3159 

2.2428 

2B44 

651. 

718. 

620. 

1338. 

B23. 

2161. 

0.8691 

1.1033 

0.4224 

0.3321 

2.2818 

2721 

630. 

694. 

590. 

1284. 

727. 

2010. 

0.8634 

1.0763 

0.4236 

0.337 1 

2.2963 

2423 

579. 

634. 

516. 

1150. 

433. 

1583. 

0.8478 

0.9850 

0.4266 

0. 3601 

2.3260 

2071 

518. 

564. 

428. 

993. 

131. 

1123. 

0.8251 

0.8716 

0.4304 

0.4018 

2.3350 


1402 397. 


434. 


266. 700. 


702. 


0.7677 0.7683 0.4348 


0.4344 2.2061 


PT N H 

1 -13.091 -8.912 

2 -13.233 -9.057 

PC/PT= 1.746202 T = 

2 -13.233 -9.068 

PC/PT* 1.749179 T = 

3 -13.368 -9.196 

3 -13.432 -9.259 

4 -14.037 -9.869 

4 -13.818 -9.654 

5 -14.077 -9.926 

5 -14.099 -9.947 

6 -14.624 -10.506 


BE 0 

-13.214 -20.285 

-13.817 -20.889 

2828.07 

-13.819 -20.891 

2827.43 

-14.499 -21.562 

-14.167 -21.235 

-14.171 -21.230 

-15.709 -22.408 

-18.316 -24.376 

-18.142 -24.210 

-26.862 -30.481 


3.000 

3.000 

2.000 

3.000 

3.000 

3.000 

4.000 

4.000 

3.000 

4.000 


THEORETICAL ROCKET PERFORMANCE ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION 


PC * 500.0 PSIA 

CASE NO. 5612 

CHEMICAL FORMULA 
FUEL N 2.00000 H 4.00000 

FUEL BE 1.00000 

OXIDANT H 2.00000 0 2.00000 


WT FRACTION 
(SEE NOTE) 
0.80000 
0.20000 
1.00000 


ENERGY STATE 
CAL/MOL 
12050.000 L 

0. S 

-44880.000 L 


TEMP DENSITY 
DEG K G/CC 
298.15 1.0036 

298.15 1. 8500 

298.15 1.4070 


0/F = 0*4925 PERCENT FUEL* 67.0000 


EQUIVALENCE RATIO- 2.9904 REACTANT DENSITY* 1.1890 


PC/P 
P, ATM 
T, DEG K 
RHOt G/CC 
H, CAL/G 
S, CAL/IGHK) 


CHAMBER THROAT 
1.0000 1.7492 

34.023 19.451 

3041 2827 

2.2475-3 1.3882-3 
-233.9 -431.1 

3.4945 3.4945 


EXIT EXIT 

3.0000 10.000 

11.341 3.4023 

2721 2416 


EXIT EXIT 

30.000 300.00 

1.1341 0.1134 

2071 1404 


8.4200-4 2.8556-4 1.1133-4 1.6445-5 


- 600.9 

3.4945 


-985.4 

3.4945 


-1280.4 

3.4945 


-1752.3 

3.4945 


M, MOL WT 
( DLV/DLP) T 
(OLV/OLTIP 
CP, CAL/1GMK) 
GAMMA (S) 

SON VEL, M/SEC 
MACH NUMBER 


16.435 16.559 

-1.00656 -1.00430 
1.1213 1.0846 

1.0570 0.9780 

1.1585 1.1629 

1333.0 1284.9 

0. 1.000 


16.575 

-1.00380 

0. 

0. 

0.9962 
1166. 0 
1.519 


16.637 

-1.00191 

1.0435 

0.8663 

1.1740 

1190.5 

2.107 


16.683 

-1.00050 

1.0131 

0.7636 

1.1899 

1108.3 

2.670 


16.700 

- 1.00001 

1.0001 

0.6707 

1.2158 

921.7 

3.867 


AE/AT 

CSTAR, FT/SEC 
CF 

IVAC, LB-SEC/LB 
ISP* LB-SEC/LB 


1.0000 
6341 
0.665 

243.7 
131 .0 


1.1958 

6341 

0.917 

259.2 

100.6 


2.4908 

6341 

1.298 

304.8 

255.7 


5.4142 

6341 

1.531 

337.3 

301.8 


30.428 
6341 
1.844 
383. 5 
363.5 


MULE FRACTIDNS 


RE 

BEH 

BEO(S) 

bEO(S) 

BEOID 

BEOH 

BE02H2 

H 

M2 

H20 

NH2 

NH3 

NO 

N2 

0 

OH 


0.00005 

0.00001 

0. 

0. 

0.19488 

0.00040 

0.00198 

0.01942 

0.50298 

0.0574? 

0.00002 

0.00005 

0.00006 

0.22194 

0.00002 

0.00076 


0.00001 

0.00000 

0. 

0. 

0.L9626 

0.00016 

0.00144 

0.01297 

0.50760 

0.05846 

0.00001 

0.00003 

0.00003 

0.22258 

0.00001 

0.00043 


0.00001 

0.00000 

0. 

0.08351 

0.11314 

0.00011 

0.00120 

0.01159 

0.50853 

0.0588? 

0.00000 

0.00002 

0.00002 

0.22269 

0.00001 

0.00035 


0.00000 

0.00000 

0. 

0.19793 

0. 

0.00002 

0.00046 

0.00592 

0.51242 

0.05992 

0.00000 

0.00001 

0.00001 

0.22319 

0.00000 

0.00013 


0.00000 

0 . 

0. 19868 

0. 

0. 

0.00000 
0.00010 
0.00156 
0.51552 
0.06050 
0.00000 
0.00000 
0.00000 
U. 22361 
0.00000 
0.00002 


0. 

0. 

0.19891 

0 .. 

0 . 

0. 

0.00000 

0.00001 

0.51665 

0.06066 

0. 

0.00000 

0. 

0.22376 

0. 

0.00000 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE HOLE FRACTIONS WERE LESS THAN 


0* 50000E-05 FOR ALL ASSIGNED CONDITIONS 


BE<S> 

H20(S> 

N3 


BE ( L) BEN BED 

H20(L> H202 N 

02 03 


BE2D B6202 BE3D3 BE404 HNO 

NH N02 NO 3 N2H4 N20 


HO 2 
N204 


NOTE. WEIGHT FRACTION OF FUEL IN TOTAL FUELS AND OF OXIDANT IN TOTAL OXIDANTS 
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0/p = 


IRANSPURT PRC1PERT l bS UF RUCXET 
0.4925 PERCENT FUEL- 67.0000 


EXHAUST ASSUMING EQUILIBRIUM COMPOSITION OUR I NG tXPANS 10* 

EQUIVALENCE RATIO= 2.9904 CHAMBER PRESSURE- 54.023 ATM 


TEMP VISCOSITY MONA! DM IC INTERNAL 
CONI) CONO 


FROZEN 

CONO 


REACTION EQUILIBRIUM CP 
COND C3ND FRGZ 


CP PRANOTL PKANDTL LEWIS 

EQ FROZ cQ NUMBER 


DEG K POISE 


CAL/iCMM SEC M X ) 


CAL/1G) <K> 


DIMENSIONLESS 


3041 

282 r 

2721 

2416 

2071 


S34.X10-6 768. X10- 

64 B. 720. 

630. 698. 

578. 634. 

51 B- 566. 


fa 663. XI 0-6 1432. 
614. 1334. 

588. 1287. 

514. 1148. 

428. 993. 


10-6 1529. X 10-6 

1101 . 

1024. 

593. 

185. 


?96 1 . XI 0—6 0.8713 
2436. 0.8685 
2311. 0.8636 
1742. 0.8476 
1178. 0.8251 


1.2974 
1 . 1841 
1.1646 
1.0363 
0.8908 


0. 4193 
0.4219 
0.4229 
0.4263 
0.4303 


0 .2999 
0.3151 
0 .3175 
0.3437 
0 . 39 1 8 


2.2294 

2.2717 

2.2842 

2.3208 

2.3341 


1404 397. 434. 


267. 701. 


703. 


0.7679 0.7688 0.4348 0.4342 2.2476 


i 
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Case 6666 - Input 


REACTANTS 


H 2. 

ICO. -215<i. 

L 20,27 

F 

.0709 

0 2. 

ICO. -3102. 

190,18 

0 

1.149 

NAMELIST 





IINPT2 KASE=fc666, P=3000, 

PSIA=T, FPCT=T, MIX=20, HK T-T 


s 


$RK 1 1 N P SUPAK=1.5|2.5»4. * 

PCP=2.5, 3, A, 10, 30, SUB«ft=2, 3. 10, 

NFZ=4, $ 









Case 6666 

Output 






REACTANTS 
H 2.0000 

- 0 . 

-0. -0 



-0. 100. 

0000 

2154.00 L 

20.270 

F 

0.07090 


0 2.0000 
NAMELIST 

-0. 

-0. -0 



-0. 100. 

0000 

3102.00 L 

90.180 

0 

l • 14900 


UNPT2 












KASE = 

6666* 











T 

0. , 

0. 


0. 


0. 

. o. 



0. 

t 


0- , 

0. 


0. 


0. 

> o. 



0. 

t 


0. f 

0. 


0. 


0. 

t o. 



0. 

, 


0. , 

0. 


0. 


0. 

« 0. 



0. 

t 


0. , 

0. 


0. 


0. 

f o. 



0. 

t 


0. * 

0. 


0. 


0. 

« o. 



0. 

V 


0. , 

0. 


0. 


0. 

t 0. 



0. 

t 


0. f 

0. 


0. 


0. 

t 0. 



0. 

t 


0. * 

0. 


0. 


0. 






P = 

3.OOOOOO0E+O3, 

0. 


0. 


0. 

» 0. 



0. 



0. , 

0. 


0. 


0. 

• o. 



0. 

t 


0. , 

0. 

* 

0. 


0. 

• o. 



0. 

t 


0. » 

0. 

f 

0. 


0. 

« o. 



0. 

t 


0. , 

0. 

f 









PSIA = 

T, MMHG = 

Ft NSQM = 

F, 









V = 

0. , 

0. 

f 

0. 

9 

0. 

t 0. 



0. 



0. • 

0. 

t 

0. 

v 

0. 

t o. 



0. 

, 


0. « 











RHO 

3 • OOOOOOOE+03* 

0. 

f 

0. 


0. 

, o. 



0. 



0- • 

0. 

, 

0. 

t 

0. 

* 0. 



0. 

, 


0. 9 

0. 

f 

0. 

v 

0. 

« 0. 



0. 

t 


0. . 

0. 

t 

0. 

t 

0. 

, 0. 



0. 

t 


0. * 

0. 

• 









ERATI 0- 

Ft OF 

F, FPCT = 

T, 

FA 

= Ft 







MIX = 

2 • 000000 Ot+ 01 t 

0. 


0. 

9 

0. 

f o. 



0. 



0. t 

0. 

v 

0. 

t 

0. 

. 0. 



0. 

9 


0. t 

0. 

* 

0. 

* 







IP 

F t HP = 

Ft SP = 

Ft 

TV 

= F, UV 

s F * 

sv 

F, 




RKT 

T, SHOCK = 

F» DETN = 

F, 

OTTO 

= F, CR 

* 0. 

. 

SO 

0. 

. 

so 

1 ONS = 

F, Il>tBUG= 

0, 

TRACE = 

0. 

t SI UNI l = 

F, EUNITS- Ft 




TKNSP I s 

T t FKOZN = 

F, PUNCH = 

F, 

NfJOAT A= Ft 







i END 












SPECIES BEING C DNS 1 DEKED 

IN THIS SYSTEM 










J 9/65 

H 

J 3/64 HQ2 



J 3/61 H2 

Lll/65 

H20ISI 


LI i/65 

H20( L) 

J 3/61 

H20 

L 2/69 M20Z 



J 6/62 □ 


Jl 2/70 

OH 


J 9/65 

02 

J 6/61 

03 











iRKTINP 












EOL 

Tt FROZ = 

T , 










SUBAR = 

Z.OOOOOOOE^OOt 

3 .000 000 OE* 00 » 

1. 

OOOOOOQfc+Olt 

0. 

* o. 



0. 

9 


0. t 

0. 

, 

0. 

t 

0. 

* 0. 



0. 

V 


0. t 











SUPAR “ 

l .5000u00r«-00t 

2.5000000b*00* 

4. 

OOOOOOOEfOO, 

0. 

• 0. 



0. 

t 


0. » 

0.. 


0. 

t 

0. 

* 0. 



0. 

t 


0. t 











PCP = 

2 . 5000000t + 00 1 

3 . OOUOOOOC +0 J , 

4. 

QOUOGOOE +00» 

1 . OOOOOOOE+O It 3. 

OOOOOOOE+Ol 


0. 

9 


0. * 

0. 

, 

0. 

t 

0. 

» o. 



0. 

, 


o. . 

0. 


0. 

« 

0. 

T 0. 



0. 

t 


o. « 

0. 

* 

0. 

* 

0. 

* 





NFZ 

4, 












i ENO 


146 

U II U 1 11 1 : 0 ¥ 11 M il M U li _.fi M L L 



OF 


4.003000 



EFFECTIVE FUEL 

EFFECTIVE OXIDANT 

MIXTURE 

ENTHALPY 

HPP(2) 

HPPC U 

HSUBO 

( KG-MUL) I DEG K I /KG 

-0,537fc9263E*U3 

-0.48783627E+02 

-0. 14656543E+03 

KG-ATOMS/KG 

OOP) 1,21 

80pu,n 

801 1 } 

H 

0.992U9300E+U0 

c. 

0. 19841859E+00 

0 

0. 

0. 62502 343E- 01 

0. 50001 875E-0 1 


PT H U 

1 -8.106 -18.242 9.000 

2 -8.224 -19.064 3.000 

PC/PT= 1.770715 T = 2719.66 

2 -8.225 -19.070 2.000 

PC/PT= 1.777559 T = 2717.89 

2 -8.225 -19.070 1.000 

PC/PT* 1. 777525 T = 2717.86 

3 -8.293 -19.634 3.000 

4 -8.329 -19.961 3.000 

5 -8.386 -20.5L3 3.000 

6 -8.563 -22.618 3.000 

7 -8.7/4 -25.980 3.000 

8 -8. L 16 -18.305 8.000 

8 -8.118 -18.318 2.000 

8 -8.113 -18.320 2.000 

8 -8.118 -18.320 1.000 

9 -8.110 -18.270 2.000 

9 -8.111 -18.274 2.000 

9 -8.111 -18.275 1.000 

10 -8.106 -18.247 2.000 

10 -8.106 -18.244 2.000 

10 -8.106 -18.245 1.000 

10 -8.106 -10.245 1.000 

10 -8.106 -18.245 1.000 

11 -8.438 -21.072 4.000 

11 -8.439 -21.083 2.000 

12 -8.599 -23.125 3.000 

12 -8.601 -23*148 1.000 

13 -8.742 -25.405 3.000 

13 -8.7*6 -25.300 1.000 


THEORETICAL ROCKET PERFORMANCE ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION 


PC = 3000.0 PSIA 

CASE NO. 6666 

CHEMICAL FORMULA 
FUEL H 2.00000 

UXIDANT 0 2.00000 

0/F - 4.0000 PERCENT FUEL 5 

CHAMBER THROAT EXIT 

= 20.0000 
EXIT 

WT FRACTION ENERGY STATE 

(SEE NOTE) CAL/HOL 

1. 00000 -2154.000 L 

1.00000 -3102 .000 L 

EQUIVALENCE RATIO= 1.9841 REACTANT DENSt TY= 

EXIT EXIT EXIT EXIT EXIT EXIT 

TEMP 
DEG K 
20 .27 
90.18 

0.2843 

EXIT 

DENSITY 
G/CC 
C. 0709 
1.1490 

EXIT 

EXIT 

PC/P 

i.0000 

1.7776 

2.5000 

3.0000 

4.0000 

10.000 

33.000 

1.0601 

1.0247 

1.0021 

5.2560 

12.183 

24.655 

P, ATM 

204. 14 

114.84 

81.655 • 

68.046 

51.034 

20.414 

6.8046 

192.56 

199.21 

203.71 

36.839 

16.756 

8.2797 

T t DEG K 

2988 

2718 

2563 

2482 

2357 

1984 

1593 

2960 

2977 

2987 

2241 

1909 

1658 

RHO, G/CC 

8.349R-3 5. 

, 1773-3 

3.9076-3 3. 

.3640-3 2 

.6581-3 

1.2639-3 

5.2480-4 

7.9531-3 8, 

» 1813-3 8 

.3351-3 

2.1276-3 

1.0781-3 

6. L 339-4 

H, CAL/G 

-291.2 

-615.9 

-793.8 

-884.6 

-1021.9 

-1413.5 

-1799.7 

-325.6 

-305.7 

-292.5 

-1145.7 

-1489.2 

-1736.8 

St CAL/ 1 G H K 1 

4.9111 

4.9111 

4.9111 

4.9111 

4.911 1 

4.9111 

4.9111 

4.9111 

4.9111 

4.9111 

4.9111 

4.9111 

4.9111 

M, MOL wr 

10.029 

10.054 

10.064 

10.068 

10.072 

10.078 

10.080 

10.032 

10.031 

10.029 

10 .075 

10.079 

10.080 

( ULV/DLPIT 

-1.00251 -1 

. .00126 

-1.00078 -] 

L. 00059 - 

1.00037 

-1.00006 

-l. 00000 

-1.00236 -3 

L. 00245 - 

1.00251 

- 1.00023 

-1.00004 

-l. 00001 

(DLV/DLTJP 

1.0495 

1.0270 

1.0176 

1.0138 

1.0090 

1.0017 

1.0001 

1.0468 

1.048 4 

1.0494 

1.0058 

1.0011 

1 .0002 

CP, CAL/I G)( K) 

1.2974 

1.1978 

1. 1491 

1.1263 

1.0945 

1.0199 

0. 9569 

1.2864 

1.2928 

1.2970 

1.0686 

1.00/4 

0.9674 

GAMMA (S> 

1.1986 

1.2089 

i .21 53 

1.2188 

1.2242 

1.2406 

1.2595 

1.1996 

1.1990 

1.1987 

l .2293 

1.2440 

1 .2561 

SON VEL, M/SEC 

1723.1 

1648.3 

16J4. 1 

1580.5 

1543.2 

1424,9 

1286.4 

1715.5 

1719.9 

1722.9 

1507.9 

1399.6 

1 310.7 

MACH NUMBER 

0 . 

1 .000 

1.278 

1.410 

1.602 

2.151 

2.762 

0.313 

0.20 2 

0.060 

1. 773 

2.262 

2.654 

AE/AT 


1.0000 

1.0650 

1.1385 

1.2984 

2.2034 

4.5769 

2.0000 

3.0000 

10.000 

1.5000 

2. 5000 

4.0000 

CSTAR 9 FT/SEC 


7952 

T952 

7952 

7952] 

/952 

7952 

7952 

7952 

/952 

7952 

7952 

7952 

CF 


0.680 

0.846 

0.919 

1.020 

1.264 

1 .466 

0.221 

0.143 

0.042 

1.103 

1.306 

1.435 

I VAC, LB- SEC /LB 


307.1 

314.4 

321.0 

332.4 

366.9 

400.0 

521.0 

759.0 

2466.9 

343.2 

373.6 

394.8 

ISP, LB-SEC/LB 


168.1 

209.1 

227.2 

252. 1 

312.5 

362.3 

54.7 

35.5 

10.5 

272.7 

322. 5 

354.7 


MULE FRACU3NS 














H 

0.00743 

0.00396 

0.00255 

0.00197 

0.00126 

0.00023 

0.00001 

0.00701 

0.00725 

0.00741 

0.00080 

0.00015 

0.00002 

H2 

0.49109 

0.49330 

0.49424 

0.49463 

0.49511 

0,49583 

0.49599 

0.49135 

0.49120 

0.49110 

0.49543 

0.49589 

0.49598 

H20 

0.49895 

0.50168 

0.50264 

0.50300 

U. 50341 

0.50392 

0.50400 

0.49930 

0.49910 

0.49896 

0. 50365 

0.50395 

0.50400 

0 

0.00002 

0.00001 

0.00000 

0.00000 

0.00000 

0. 

0. 

0.00002 

0.00002 

0.00002 

0.00000 

0. 

0. 

OH 

0.00249 

0.00105 

0.00057 

0.00040 

0.00022 

0.00002 

0.00000 

0.00230 

0.00241 

0.00248 

0 .00012 

0.00001 

0.00000 

02 

0.00001 

0.00000 

0.00000 

0.00000 

0.00000 

0. 

0. 

0.00001 

0.0000 1 

G.OOOOl 

0.0 0000 

0. 

0. 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE MOLE FRACTIONS WERE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 


U02 H20( S ) H20IL) H232 03 

NOTE. WEIGHT FRACTION OF FUEL IN TOTAL FUELS AND OF UXIOANT IN TOTAL OXIDANTS 
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TRANSPORT PROPERTIES OF ROCKET EXHAUST ASSURING EQUILIBRIUM COMPOSITION DURING EXPANSION 


O/F* 4.00DO 


PERCENT FUEL* 20-0000 EQUIVALENCE RATI3= 1-9841 


CHAMBER PRESSURE* 204.137 ATM 


TEMP 


VISCOSI TY 


MONATOMIC INTERNAL 
COND CDND 


FROZEN REACTION EQUILIBRIUM CP 

COND COND CUND FROZ 


CP 

EG 


PRANDTL PRANOTL LEWIS 
FROZ EQ NUMBER 


DEG K PDISE 


CAL/(CMI(SECMK) 


CAL/IGMKJ DIMENSIONLESS 


2988 

2718 

2565 

2482 

2357 


B54.X10-6 

796. 

761. 

743. 

714. 


790.X10-6 892.X10-6 1662.X10-6 

734- 803. 1537. 

702. 751. 1453. 

685. 723. 1408. 

t>60. 679. 1339. 


542 .X 1 0-6 
311. 

210 . 

166. 

ill. 


2224.X10-6 

1848. 

1662. 

1574. 

1450. 


1.1019 
1.0826 
1 .0700 
1.0629 
1.0511 


1.2974 

1.1978 

1.1491 

1.1263 

1.0945 


0.5596 

0.6605 

0.5607 

0.5607 

0.5606 


0.4982 
0 .5150 
0.5262 
0 .6314 
0.6389 


1.8 171 
1.9025 
1 .9517 
1.4773 
2.0162 


1984 624. 
1593 524. 
2960 S48. 
2977 852. 
2987 854. 


582. 

498. 

784. 

787. 

790. 


546. 

409. 

383. 

088. 

992. 


1 12B • 
907. 
1667. 
1675. 
1601. 


23. 1152. 

2. 909. 

515. 2182. 

531. 2206. 

541. 2222. 


1.0102 

0.9561 

1.1001 

1.1012 

1.1019 


1.0199 

0.9569 

1.2864 

1.2928 

1.2970 


0.5590 

0.5525 

0.5597 

0.5596 

0.5596 


0.5530 
0.5520 
0 .4999 
0.4990 
0 .498 3 


2.1 195 
2.1732 
1.8 258 
1.8207 
1.8174 


2241 687. 
1909 605. 
1658 542. 


636. 

566. 

513. 


638. 

520. 

432. 


1274. 

1086. 

944. 


73. 

15. 

3. 


1347. 1.0394 

1102. 1.0008 

947. 0.9660 


1.0686 0.5604 
1.0074 0.5581 
0.9674 0.5540 


0.5448 2.0512 

G . 5540 2.1350 

0 .5531 2.1696 


THEURETICAL ROCKET PERFORMANCE ASSUMING FROZEN COMPOSITION DURING EXPANSION 
AFTER PUINT 4 

PC = 3000.0 PSIA 

CASE NO. 6666 

CHEMICAL FORMULA 
FUEL H 2.00000 
■JXIOANT 0 2.00000 

U/F* 4.0000 PERCENT FUEL= 20.0000 EQUIVALENCE RATIO= 1.9841 REACTANT DENSITY* 0.284^ 



CHAMBER 

THROAT 

EXI T 

FXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXI T 

EXIT 

PC/P 

i.0000 

l .7776 

2.5000 

3.0000 

4.0000 

10.000 

30.000 

5.2795 

12.257 

24.810 

P, ATM 

204.14 

114.84 

81.655 

68.046 

51.034 

20.414 

6.8046 

38.666 

16.655 

8.2280 

T, OEG K 

2988 

2 718 

2563 

2482 

2352 

1973 

1582 

2232 

1896 

1645 

RHO, G/CC 

8.3498-3 5. 

,1773-3 3 

.9076-3 3, 

►3540-3 

2.6622-3 

1.2693-3 

5.2765-4 

2.1256-3 ! 

1.0778-3 

6.1357-4 

H, CAL/G 

-291.2 

-615.9 

-793.8 

-B84.6 

-1021.8 

-1412.1 

-1796.5 

-1147.3 

-1489, 8 

-1736.0 

S« CAL/ ( G ) IK 1 

4.9111 

4.9111 

4.9111 

4.9111 

4.9111 

4.9111 

4.9111 

4.9111 

4.9111 

4.9111 

M, MOL WT 

10.029 

10.054 

10.064 

10.068 

10.068 

10.068 

10.068 

10.068 

10.068 

10.068 

CP, CAL/(C)(K) 

1.2974 

1.1978 

1.1491 

1.1263 

1.0507 

1.0090 

0.9547 

1.0385 

0.9993 

0.9643 

GAMMA (SI 

i. 1986 

1.2088 

1.2153 

1.2188 

1.2313 

1.2432 

1.2606 

1.2347 

1.2461 

1.2573 

SON VEL*M/SEC 

1723.1 

1648.3 

1604. 1 

1580.5 

1546.5 

1423.3 

1283.4 

1508.5 

1396. 8 

1307.1 

MACH NUMBER 

0. 

1.000 

1.278 

1 .410 

1.599 

2.152 

2.765 

1.774 

2.267 

2.660 

AE/AT 


1.0000 

1.0650 

1.1385 

1.2965 

2.1953 

4.5571 

1.5000 

2.5000 

4.U000 

CSTAR, FT/SEC 


7952 

7952 

7952 

7952 

7952 

7952 

7952 

795 2 

7952 

CF 


0.680 

0.846 

0.919 

1.020 

1.264 

1 .464 

1.104 

1.307 

1.434 

I VAC , LB-SEC/ L8 


307.1 

314.4 

321.0 

332.2 

366.6 

399.4 

343.1 

373.4 

394.4 

ISP, LB-SEC/ LB 


168.1 

209.1 

227.2 

252.1 

312.3 

361.9 

272.9 

322.9 

354.6 


MOLE FRACTIONS 
H 0.00197 

H2 

0.49463 

H2U 

0.50300 

OH 

0. 0004< 


WT FRACTION ENERGY 

(SEE NOT E I CAL/MOL 

1.00000 -2154.000 

1. 00000 -3102.000 


TEMP 
DEG K 
20.2 7 
90.18 


DENS I TY 
G/CC 
0.0709 
1.1490 


ADDITIONAL PRODUCIS WHICH WERE CUNSIDtREU BUT WHOSE MOLE FRACTIONS WERE LESS THAN 0.50000E-05 FOR ALL ASSIGNED CONDITIONS 


H02 H201S) H20IU H202 03 

NOTE. WEIGHT FRACTION OF FUEL IN TOTAL FUELS AND OF OXIDANT IN TOTAL OXIDANTS 


TRANSPORT PROPERTIES OF ROCKET EXHAUST ASSUMING FROZEN COMPOSITION DURING EXPANSION 
FROZEN AFTER- POINT 4 


0/F* 4.0000 PERCENT FUEL* 20.0000 EQUIVALENCE RATIO* 1.9841 CHAMBER PRESSURE* 204.137 ATM 


TEMP VISCOSITY MONATOMIC INTERNAL FROZEN 

COND CQND COND 


CP PRANDTL 

FROZ FROZ 


DEG K POISE 


CAL / (CM) { SEC M K ) CAL/ (OIK) 


2988 

2718 

2563 

2482 

2352 


354 .XI 0-6 7 90 • X 1 0-6 

796. 734. 

761. 702. 

743. 685. 

713. 669. 


892 • XI 0-6 1682. XiO-6 


003. 
751. 
723. 
67 7 m 


1537. 
1453. 
1 408. 
1336. 


1.1019 

1.0B26 

1.0700 

1.0629 

1.0507 


0.5596 
0.5605 
0.5 607 
0.5607 
0.5605 


1973 

1582 

2232 

1896 

1645 


622. 

521. 

684. 

602. 

536. 


581. 

497. 

635. 

565. 

511. 


542. 1 123. 
405. 902. 
634. 1269. 
515. 1080. 
427. 938. 


1.0090 0.5505 
0.9547 0.5519 
1.0385 0.5601 
0.9993 0.5576 
0.9543 0.5533 
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TABLE I. - FORMAT OF THERMODYNAMIC AND TRANSPORT DATA 


(a) THERMO (thermodynamic) data 


Card 

Content 

Format 

Card 

order 



column 

1 

THERMO 

3A4 

1 to 6 

2 

Temperature ranges for two sets of coefficients: 
lowest T , common T , and highest T 

3F10.3 

1 to 30 

3 

Species name 

3A4 

1 to 12 


Date 

2A3 

19 to 24 


Atomic symbols and formula 

4(A2, F3. 0) 

25 to 44 


Phase of species (S, L, or G for solid, liquid, or 
gas, respectively) 

A1 

45 


Temperature range 

2F10.3 

46 to 65 


Integer 1 

115 

80 

4 

Coefficients a.(i = 1 to 5) in equations (3) to (5) 

5(E15. 8) 

1 to 75 


(for upper temperature interval) 
Integer 2 

15 

80 

5 

Coefficients in equations (3) to (5) (ag and a^ for 
upper temperature interval and a^, ag, and a^ 

5(E15. 8) 

1 to 75 


for lower) 
Integer 3 

15 

80 

6 

Coefficients in equations (3) to (5) (a^, ag, ag, 
and a.rj for lower temperature interval) 

4(E15. 8) 

1 to 60 


Integer 4 

120 

80 

(a) 

Repeat cards numbered 1 to 4 in card column 
80 for each species 



Final 

END (indicates end of thermodynamic data) 

3A4 

1 to 3 

card 





a Gaseous species and condensed species with only one condensed phase can be 
in any order. However, the sets for two or more condensed phases of the 
same species must be adjacent. If there are more than two condensed 
phases of a species, their sets must be either in increasing or decreasing 
order according to their temperature intervals. 
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TABLE I. - Concluded. FORMAT OF THERMODYNAMIC AND TRANSPORT DATA 


(b) TRANSPORT data 


Card 

type 

Content a 

Format 

Card 

column 

1 

Identification of interaction: chemical formula of species 1, 
chemical formula of species 2, number of temperatures in 
table (NTP), code to indicate type of data (1 for transport and 
2 for relaxation), and number of rotational degrees of freedom 

2(3A4,6X), 
215, F24. 1 

1 to 70 

b 2 

Tables of data: either transport data (temperature, viscosity 
cross section, A*, and B* ) or relaxation data (temperature, 
rotational collision number, vibrational collision number, 
and dimensionless vibrational heat capacity (C yil:) /R)) 

4F10.4 

1 to 40 

3 

End card to indicate end of transport data; LAST written in 
card columns 1 to 4 

A4 

1 to 4 


identification of interaction is done by giving chemical formula of particular species in- 
volved, whether they are the same or different. They may be specified in either order, 
inasmuch as the program assumes interaction A-B to be same as B-A. The number of 
rotational degrees of freedom is meaningful only for data of a pure species (interaction 
of the type A -A). The temperature schedule is arbitrary, provided the number of tem- 
peratures is not more than the maximum of 20. In addition, the data should be ordered 
in either an increasing or decreasing function of temperature, in order that interpolation 
within the table be meaningful. As a matter of input convenience, the Hirschfelder- 
Eucken approximation is denoted by setting the collision number equal to 0. 0. If the 
vibrational heat capacity is not specified (C^^^/R = 0), the program will calculate a 
value assuming that the electronic heat capacity is zero and that the rotational heat 
capacity is classical. For polar molecules A should be corrected for resonant ex- 
change of internal energy. See the main-text section TRANSPORT PROPERTY 
EQUATIONS for an explanation. 

There are NTP cards of type 2. They are followed by a card of either type 1 or type 3. 
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TABLE H. - PROGRAM INPUT 


f THERMO 


code card 




/ THERMO 


data cards 

*• 


'transport 


data cards 

J 



(optional) 


(optional) 


/ $INPT2 

Optional variables: 

KASE 

MIX (I to 15) 

OF, FPCT, FA, or ERATIO 

IONS 

IDEBUG 

TRACE 

TRNSPT 

NODATA 

PUNCH 

FROZN 

(additional namelist input is given 
in table on the right) 


REACTANTS 
code card 

'reactants 

cards 

'omit 

card(s) 

'insert 

card(s) 

'NAMELISTS 
code card 


Problem 

Namelis 

Variables 

Required 

Optional 

Assigned temperature and 
pressure (TP) 

INPT2 

TP = .TRUE. 
T(1 to 52); 
P(1 to 26) 

NSQM, PSIA, or MMHG 

Assigned enthalpy and 
pressure (HP) 

INPT2 

HP = .TRUE. 
P(1 to 26) 

NSQM, PSIA, or MMHG 

Assigned entropy and 
pressure (SP) 

INPT2 

SP = .TRUE. 
S0(1); 

P(1 to 26) 

NSQM, PSIA, or MMHG 

Assigned temperature and 
volume or density (TV) 

INPT2 

TV = .TRUE. 
T(1 to 52); 
V(1 to 26) or 
RHO( 1 to 26) 


Assigned internal energy 
and volume or density (UV) 

INPT2 

UV = .TRUE. 
V(1 to 26) or 
RHO(l to 26) 


Assigned entropy and volume 
or density (SV) 

INPT2 

SV = .TRUE. 
V(1 to 26) or 
RHO(l to 26); 
S0(1) 


Detonation (DETN) 

INPT2 

DETN = .TRUE. 
P(1 to 26) 

(initial gas) 

T(1 to 52)(initial gas); 
NSQM, PSIA, or MMHG 

Shock (SHOCK) 

INPT2 

SHOCK = .TRUE. 
P(1 to 13) (initial 
T(1 to 13) gas) 

NSQM, PSIA, or MMHG 

SHKINP 

Ul(l to 13) or 
MACH1 (1 to 13) 

INCDEQ = .FALSE, or 
INCDFZ = .FALSE. 

Rocket (RKT) 

INPT2 

RKT = .TRUE. 
P(1 to 26) (cham 
ber pressures) 

T(lto 52) (chamber); 
NSQM, PSIA, or MMHG 

RKTINP 


EQL = .FALSE, or 
FROZ = .FALSE. 
NFZ 

PCP(1 to 22) 
SUPAR(1 to 13) 
SUBAR( 1 to 13) 


i 
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TABLE m. - REACTANTS CARDS 


Card 

order 

Content 

Format 

Card 

column 

First 

REACTANTS 

3A4 

lto 9 

Any 

One card for each reactant species {maximum, 15). 
Each card contains 

(1) Atomic symbols and formula numbers 

5(A2, F7. 5) 

1 to 45 


(maximum, five sets) a 
(2) Relative weight* 5 or number of moles 

F7.5 

46 to 52 


(3) Blank if (2) is relative weight, or M if (2) 

A1 

53 


is number of moles 

(4) Enthalpy or internal energy 3- , cal/mole 

F9.5 

54 to 62 


(5) State: S, L, or G for solid, liquid, or gas, 

A1 

63 


respectively 

(6) Temperature associated with enthalpy in (4) 

F8.5 

64 to 71 


(7) F if fuel, or O if oxidant 

A1 

72 


(8) Density in g/cm 3 (optional) 

F8. 5 

73 to 80 

Last 

Blank 




a Program will calculate the enthalpy or internal energy (4) for species in the 
THERMO data at the temperature (6) if zeros are punched in card columns 
37 and 38. 

^Relative weight of fuel in total fuels or oxidant in total oxidants. All reactants 
must be given either all in relative weights or all in number of moles. This 
number must never be zero. 
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TABLE IV. - LIST OF REACTANTS CARDS FOR SOME OXIDANTS AND FUELS 


Chemical 

Chemical formula (card columns 1 to 45) 

Percent 
(cc 46-52) 

Assigned 
enthalpy , 
cal/mole 
(cc 54-62) 

(a) 

Temper- 

ature, 

K 

(cc 64-71) 

(b) 

Density, 
g/cm 3 
(cc 73-80) 

Acetonitrile 

C 2. 

H 3. N 1. 

100. 

12800. 

L 

298. 15 

F 

.7857 

Acetylene 

C 2. 

H 2. 

100. 

49270. 

L 

192.60 

F 

.610 

Air c 

N 1.561760 .41959 AR. 00093240 .000300 

100. 

-28.2 

G 

298. 15 

El 


Aluminum 

AL1. 


100. 

0 . 

S 

298. 15 

F 

2.702 

Ammonia (g) 

N 1. 

H 3. 

100. 

-10970 

G 

298. 15 

F 


Ammonia (l) 

N 1. 

H 3. 

100. 


L 

239.72 

F 

.676 

Ammonium perchlorate 

N 1. 

H 4. CL1. 0 4. 

100. 



298. 15 

F 

1.95 

Aniline 

C 6. 

H 7. N 1. 

100. 



298. 15 

F 

1.02173 

Argon 

AR1. 


100. 

0.0 

G 

298. 15 

F 


Benzene 

C 6. 

H 6. 

100. 

11718. 

L 

298. 15 

F 

.8737 

Beryllium 

BE1. 


100. 

0.0 

S 

298. 15 

F 

1.85 

Butane 

C 4. 

H 10. 

100. 

-36080. 

L 

272.65 

F 

.6012 

1 -butene 

C 4. 

H 8. 

100. 

-5800 

L 

266.9 

F 

.6263 

Chlorine(g) 

CL2. 


100. 

0 . 

G 

298. 15 

O 


Chlorine (l) 

CL2. 


100. 

-5391. 

L 

239.09 

O 

1.56 

Chlorine trifluoride(g) 

CL1. 

F 3. 

100. 

-39000. 

G 

298. 15 

O 


Chlorine trifluoride (2!) 

CL1. 

F 3. 

100. 

-45680. 

L 

284.55 

O 

1.8517 

Cyanogen(g) 

C 2. 

N 2. 

100. 

73840. 

G 

298. 15 

F 


Cyanogen(Z) 

C 2. 

N 2. 

100. 

67655. 

L 

252.01 

F 

.9537 

Diborane 

B 2. 

H 6. 

100. 

4970. 

L 

180.59 

F 

.4371 

Ethane 

C 2. 

H 6. 

100. 

-25008. 

L 

184.52 

F 

.5464 

Ethyl alcohol 

C 2. 

H 6. O 1. 

100. 

-66370. 

L 

298. 15 

F 

.7893 

Ethylene 

C 2. 

H 4 

100. 

8100. 

L 

169.44 

F 

. 5688 

Ethylene oxide 

C 2. 

H 4. 0 1. 

100. 

-18840. 

L 

283.72 

F 

.8824 

Ethylene polymer d 

C 1. 

H 2. 

100. 

-6100. 

S 

298. 15 

F 

.935 

Fluorine (g) 

F 2. 


100. 

0 . 

G 

298. 15 

O 


Fluorine(Z) 

F 2. 


100. 

-3098. 

L 

85.02 

O 

1.505 

Graphite 

C 1. 


100. 

0 . 

S 

298. 15 

F 

2.25 

Helium 

HE1. 


100. 

0 . 

G 

298. 15 

F 


Heptane 

C 7. 

H 16. 

100. 

-53630. 

L 

298. 15 

F 

.67951 

Hydrazine 

N 2. 

H 4. 

100. 

12100. 

L 

298. 15 

B 

1.0036 


a Phase: S, solid; L, liquid; G, gas. 

^Fuel, F; oxidant, O. 

c Based on the following molar percents: Ng = 78.0881, Og = 20.9495, Ar = 0.9324, COg = 0.0300. 
^Estimate based on paraffin hydrocarbon series. 
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TABLE IV. - Concluded. LIST OF REACTANTS CARDS FOR SOME OXIDANTS AND FUELS 


Chemical 

Chemical formula {card columns 1 to 45) 

Percent 
(cc 46-52) 

Assigned 
enthalpy, 
cal/mole 
(cc 54-62) 

(a) 

Temper- 

ature, 

K 

(cc 64-71) 

(b) 

Density, 
g/cm 3 
(cc 73-80) 

Hydrogen(g) 

H 2. 



100. 

0 . 

G 

298. 15 

F 


Hydrogen(Z) 

H 2. 



100. 

-2154. 

L 

20.27 

F 

.0709 

Hydrogen peroxide 

H 2. 

O 2. 


100. 

-44880. 

L 

298. 15 

O 

1.407 

IRFNA e 

H 1.57216N 

1.629450 

4.69505F .02499 

100. 


L 

298. 15 

O 

1.48 

JP-5, ASTMA l f 

C 1. 

H 1.9185 


100. 


L 

298. 15 

F 

.807 

JP-4, RP-l g 

C 1. 

H 1.9423 


100. 


L 

298. 15 

F 

.773 

Lithium (?) 

HI. 



100. 

1714. 1 

L 

453.69 

F 

.512 

Lithium(s) 

LI1. 



100. 


S 

298. 15 

F 

. 534 

Lithium perchlorate 

Ul. 

CL1. 

O 4. 

100. 


S 

298. 15 

O 

2.43 

Methane (g) 

C 1. 

H 4. 


100. 

-17895. 

G 

298. 15 

F 


Methane (1) 

C 1. 

H 4. 


100. 

-21390. 

L 

111. 66 

F 

.4239 

Methyl alcohol 

C 1. 

H 4. 

O 1. 

100. 

-57040. 

L 

298. 15 


.78659 

Monomethyl hydrazine 

C 1. 

H 6. 

N 2. 

100. 

12900. 

L 

298. 15 


.874 

Nitric acid 

H 1. 

N 1. 

O 3. 

100. 

-41460. 

L 

298. 15 


1. 5027 

Nitrogen(g) 

N 2. 



100. 

0.0 

G 

298. 15 

F 


Nitrogen (l) 

N 2. 



100. 

-2939. 

L 

77.35 

F 

.808 

1 Nitrogen tetroxide 

N 2. 

O 4. 


100. 

-4680. 

L 

298. 15 

O 

1.431 

Nitrogen trifluoride 

N 1. 

F 3. 


100. 

-34100. 

L 

144. 14 

O 

1.531 

Nitromethane 

C 1. 

H 3. 

N 1. 0 2. 

100. 

-27030. 

L 

298. 15 

F 

1. 1371 

Octane 

C 8. 

H 18. 


100. 

-59740. 

L 

298. 15 

F 

. 69849 

Oxygen(g) 

O 2. 



100. 

0.0 

G 

298. 15 

O 


Oxygen(Z) 

O 2. 



100. 

-3102. 

L 

90. 18 

O 

1. 149 

Oxygen difluoride 

O 1. 

F 2. 


100. 

1869. 

L 

127.88 

0 

1.521 

Ozone(g) 

O 3. 



100. 

34100. 

G 

298. 15 

0 


Ozone (£) 

O 3. 



100. 

30310. 

L 

162. 64 

o 

1.449 

Pentaborane 

B 5. 

H 9. 


100. 

7740. 

L 

298. 15 

F 

.6183 

Perchloryl fluoride 

CL1. 

O 3. 

F 1. 

100. 

-11350. 

L 

226.48 

0 

1.392 

Propane 

C 3. 

H 8. 


100. 

-30372. 

L 

231.08 

F 

.5808 

n -propyl nitrate 

C 3. 

H 7. 

N 1. 0 3. 

100. 

-51270. 

L 

298. 15 

F 

1.0538 

Toluene 

C 7. 

H 8. 


100. 

2867. 

L 

298. 15 

F 

. 86230 

Unsymmetrical dimethylhydrazine 

C 2. 

H 8. 

N 2. 

100. 

11900. 

L 

298. 15 

F 

.783 


a Phase: S, solid; L, liquid; G, gas. 

^Fuel, F; oxidant, O. 

e Inhibited red fuming nitric acid based on following weight percents: HNOgU)= 83. 5, ^0^(0 = 14, ^0(2) = 2, HF(g) = 0.5. 
^Typical jet fuel having following properties: H/C weight ratio = 0. 161, heat of combustion = 18 600 Btu/lb. 

^Typical jet fuel having following properties: H/C weight ratio = 0. 163, heat of combustion = 18 640 Btu/lb. 
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TABLE V. - VARIABLES IN INPT2 NAMELIST 


Variable 

Dimen- 

sion 

Type 

Common label 

Value 

before 

read 

Definition and comments 

KASE 

1 

I 

INDX 

0 

Optional assigned number associated with case 

P 

26 

R 

POINTS 

0 

Assigned pressures: chamber pressures for 
rocket problems; values in atm unless PSIA, 
NSQM, or MMHG = T (see below) 

NSQM 

1 

L 


FALSE 

Values in P array in N/m^ 15 

PSIA 

1 

L 


FALSE 

Values in P array in psia units' 3 

MMHG 

1 

L 


FALSE 

Values in P array in mm Hg units' 5 

V 

26 

R 

POINTS 

0 

Volume, cm^/g 

RHO 

26 

R 

POINTS a (P) 

0 

Density, g/cm* 5 

T 

26 

R 

POINTS 

0 

Assigned temperature, K 

MIX 

15 

R 

MISC a (OXF) 

0 

Values of equivalence ratios if ERATIO = T ; 
oxidant -to -fuel weight ratio if OF = T; per- 
cent fuel by weight if FPCT = T; and fuel -to - 
air weight ratio if FA = T 

E RATIO 

1 

L 

MISC 

FALSE 

Equivalence ratios given in Mix ' 3 

OF 

1 

L 

MISC 

FALSE 

Oxidant -to -fuel weight ratios given in Mix ' 5 

FPCT 

1 

L 

MISC 

FALSE 

Percent fuel by weight given in Mix ' 3 

FA 

1 

L 


FALSE 

Fuel -to -air weight ratios given in Mix ' 3 

TRACE 

1 

R 

MISC 

0 

(5.E-9 for 
SHOCK 
problem) 

Option to print mole fractions TRACE in 
special E -format 

IONS 

1 

L 

INDX 

FALSE 

Consider ionic species' 5 

EDEBUG 

1 

I 

INDX 

0 

Print intermediate output for all points 
indexed > integer value 

TP 

1 

L 

INDX 

FALSE 

Assigned temperature and pressure problem' 5 

HP 

1 

L 

INDX 

FALSE 

Assigned enthalpy and pressure problem' 5 

SP 

1 

L 

INDX 

FALSE 

Assigned entropy (SO) and pressure problem 13 

SO 

1 

R 

MISC 

0 

Assigned entropy, cal/(g)(K) 

TV 

1 

L 

INDX 

FALSE 

Assigned temperature and volume (or density) 
problem 13 

UV 

1 

L 

INDX 

FALSE 

Assigned internal energy and volume (or 
density) problem 13 

SV 

1 

L 

INDX 

FALSE 

Assigned entropy (SO) and volume (or density) 
problem 15 

RKT 

1 

L 


FALSE 

Rocket problem 15 

DETN 

1 

L 


FALSE 

Detonation problem 15 

SHOCK 

1 

L 

INDX 

FALSE 

Shock problem 15 

TRNSPT 

1 

L 

CONTRL 

TRUE 

Transport properties included with the cal- 
culations' 5 

PUNCH 

1 

L 

CONTRL 

FALSE 

Punched cards of calculations included with 
output 15 

NODATA 

1 

L 

CONTRL 

FALSE 

Message concerning missing transport data 
not printed 15 

FROZN 

1 

L 

CONTRL 

FALSE 

Frozen transport properties calculated for 
the current point 13 


a Equivaienced to variable given in parentheses. 
^If variable is set to be TRUE. 
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TABLE VI. - VARIABLES IN RKTINP NAMELIST a 


Variable 

Dimen- 

sion 

Type 

Common 

label 

Value 

before 

read 

Definition and comments 

EQL 

1 

L 

PERF 

TRUE 

Calculate rocket performance 
assuming equilibrium com- 
position during expansion 

FROZ 

1 

L 

PERF 

TRUE 

Calculate rocket performance 
assuming frozen composi- 
tion during expansion* 5 

NFZ 

1 

I 

PERF 

1 

Freezing point; must be ^13 

PCP 

26 

R 

PERF 

0 

Ratio of chamber pressure to 
exit pressure; list should 
not include values for the 
chamber and throat; stor- 
age allows for 22 values 

SUBAR 

13 

R 

PERF 

0 

Subsonic area ratios 

SUPAR 

13 

R 

PERF 

0 

Supersonic area ratios 


a Required for rocket problems only. 

b Set variable to be FALSE if these calculations are not desired. 


TABLE VE. - VARIABLES IN SHKINP NAME LIST a 


Variable 

Dimen- 

sion 

Type 

Value 

before 

read 

Definition and comments 

INCDEQ 

1 

L 

TRUE 

Calculate incident shock parameters assuming 
equilibrium compositions* 5 

INCDFZ 

1 

L 

TRUE 

Calculate incident shock parameters assuming 
frozen compositions* 5 

REFLEQ 

1 

L 

FALSE 

Calculate reflected shock parameters assum- 
ing equilibrium composition 0 

REFLFZ 

1 

L 

FALSE 

Calculate reflected shock parameters assum- 
ing composition frozen at incident composi- 
tion 0 

U1 

13 

R 

0 

Shock velocity in m/sec (not required if values 
of Machl are listed) 

MACH1 

13 

R 

0 

Ratio of shock velocity to the velocity of sound 
in the unshocked gas (not required if values 
of U1 are listed) 


a Required for shock problems only. 

b Set variable to be FALSE if these calculations are not desired. 
c If variable is set to be TRUE . 
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ES 

e 


05 

CO 


k 


k 


ie 

TABLE VHI. - SOURCES OF TRANSPORT DATA 


IK 


rj 


i 

K 


S 

o 

CD 

itMP« 

IS*** 


■ 

OTQ 

IRS! 


CD 

OTQ 

CD 

r , 

iBr*— ’ 


; 53" 



pc- 


ID 

S3 


K 

m 


EmmmS 

2 


IK 

C 

U 

> 


K 

o 

m 


K 

> 

IS 


cr 

o 

— ■* 



3 

r 



£ 

m 

o 



Interaction 

Temperature range of data included 
with program, 

K 

Method 

(a) 

Interaction 

Temperature range of data included 
with program , 

K 

Method 

(a) 

Interaction 

Temperature range of data included 
with program , 

K 

Method 

(a) 

Ar-Ar 

200 to 5000 

21 

co 2 -sf 6 

200 to 5000 

12 

K-K 

1000 -to 10 000 

18 

Ar-CO 

200 to 8000 

9 

CSg-CS, 




1 

Kr-Kr 

200 to 5000 

10 

Ar-COg 

200 to 8000 

11 

C 2 H 2- C 2 H 2 





Kr-Xe 

200 to 5000 

14 

Ar-Hg 

200 to 5000 

12 

C 2 H 4- C 2 H 4 





Li -Li 

1500 to 10 000 

18 

Ar-He 

200 to 5000 

mm 

C 2 H 6‘ C 2 H 6 




■ 

N-N 

1000 to 10 000 


4 

Ar-Kr 

200 to 5000 


C 2 N 2' C 2 N 2 




n 

N-NO 

1000 to 8000 


Ar-N 

1000 to 8000 


C 6 H 6- C 6 H 6 




9 

n-n 2 

1000 to 10 000 


4 

Ar-NO 

200 to 8000 

m 

1 




■ 

■ 

N-O 

1000 to 10 000 


i 

Ar_N 2 

200 to 8000 



Cs-Cs 

1000 to 10 000 


ND3-ND3 

200 to 5000 


2 

Ar-0 

1000 to 8000 

■ 


DC1-DC1 

200 to 5000 

■ 

m 

NHq-NH, 




2 

Ar-0 2 

200 to 8000 

■ 

9 

DF-DF 

200 to 5000 

m 


NO-NO 




1 

Ar-SFg 

200 to 5000 

mm 

D 2°- D 2° 

300 to 5000 


m 

no-no 2 




Ar-Xe 



ES 

F 2* F 2 

200 to 5000 


■ 

NO-O 

1000 to 10 000 


K 

BCIq-BCIo 




i 

H-H 

1000 to 10 000 


5 

no-n 2 o 4 

200 to 2000 


bf 3 -bf 




i 

h-h 2 

1000 to 10 000 


5 

no 2 -no 2 

200 to 5000 

■ 


Br s -Br/ 




i 

H-He 

2000 to 10 000 

19 

N0 2 -°2 

200 to 5000 

m 


c-o 

1000 to 10 000 

22 

H-Li 

1000 to 10 000 

6 

N °2- N 2°4 

200 to 2000 

■ 

■| 

CC1 4 -CC1 4 

200 to 5000 


i 

H-O 

1000 to 10 000 

6 

N 2- N 2 

200 to 10 000 


1 

CF 4 ‘-CF 4 * 




i 

HBr-HBr 

200 to 5000 


2 

n 2 -o 

1000 to 10 000 


* 

CHClg-CHClg 




3 

HCN-HCN 




2 

N 2-°2 

200 to 10 000 


■ 

CHgCl-CHgCl 




3 

HC1-HC1 




3 

n 2 -sf 6 

200 to 5000 


CH«OH-CH„OH 




3 

HF-HF 




2 

n 2 o-n 2 o 

200 to 5000 


m 

ch 4 -ch 4 




1 

HI -HI 




1 

N 2°4- N 2°4 

200 to 2000 


8 

ch 4 -o 2 



17 

H 2' H 2 

200 to 10 000 


5 

N 2°4-°2 

200 to 2000 


8 

CO-CO 

200 to 

10 000 

9 

H 2 - H 2° 

300 to 5000 


7 

Na-Na 

1000 to 10 000 

18 

co-co 2 

200 to 8000 



Hg-He 

2000 to 10 000 

20 

Ne-Ne 

200 to 5000 

10 

co-h 2 

200 to 5000 



H 2- N 2 

200 to 5000 

13 

0-0 

1000 to 10 000 


4 

CO-He 

200 to 5000 



H 2 -OH 

500 to 5000 


7 

o-o 2 

1000 to 10 000 


4 










H 2-°2 

200 to 5000 

7 

OH -OH 

500 to 5000 

7 

H 2 - SF 6 

200 to 5000 

12 

oh-o 2 

500 to 5000 

7 

h 9 o-h 9 o 

300 to 5000 

2 

°2"°2 

200 to 10 000 

4 

H 2 °-°2 

300 to 5000 

7 

Rb-Rb 

1000 t 

a 10 000 

18 

H 9 S-H 9 S 

200 to 5000 

2 

SFg-SEg 

200 to 5000 

1 

He-He 



10 

S0 2 -S°2 



2 

He-Kr 



14 

SiF 4 -SiF 4 



1 

He-N 2 



16 

SiH 4 -SiH 4 



1 

He-SFg 



12 

UF 6' UF 6 



1 

He-Xe 



15 

Xe-Xe 



10 

h~h 



1 






8. Lennard-Jones (12-6) potential. Parameters were 13. Lennard-Jones (12-6) potential. Parameters were 

obtained from reference 38. taken from reference 41. 

9. Cross-section data for interactions of the type 

CO-X were assumed to be the same as those for 
interactions of the type Ng-X. 

10. Data were obtained directly from the available 

transport property measurements. The cross 
sections were selected in order to adequately 
reproduce both the viscosity and thermal con- 
ductivity data. At higher temperatures the 
cross-section data were smoothed into the re- 
sults obtained from molecular beam scattering 
measurements (ref. 39). 

11. Reference 40. Data were extended to lower tem- 

peratures in some cases by using the potential 
energy parameters of reference 40. 

12. Exponential -6 potential. Parameters were taken 

from reference 28. 


14. Lennard-Jones (12-6) potential. Parameters were 

taken from reference 42. 

15. Lennard-Jones (12-6) potential. Parameters were 

taken from reference 43. 

16. Exponential -6 potential. Parameters were taken 

from reference 28. Experimental diffusion data 
(ref. 44) and molecular beam scattering meas- 
urements (ref. 45) were used. 

17. Exponential-6 potential. Parameters were taken 

from reference 46. 

18. Reference 47. 

19. Reference 48. 

20. Reference 49. 

21. Reference 50. Method 10 was used at higher tem- 

peratures. 


22. Reference 51. 



TABLE EX. - ROTATIONAL COLLISION NUMBERS 


Molecule 

7 a 

^rot 

Ar 


BC1 3 

i 


i 


2 

CC1 4 

1 

CF 4 

1 

CHClg 

908 to 26 581 

CHgCl 

20 to 406 

CHnOH 

19 to 401 

CH 4 

8 

CO 

2 

COS 

HE 

co 2 

3 

CS 2 

HE 

C 2 H 2 

1 

C 2 H 4 

3 

C 2 H 6 

HE 

C 2 N 2 

2 

C 6 H 6 

HE 

Cs 


C1 2 

1 

DC1 

46 to 1084 

DF 

4.3 to 22 

d 2 ° 

13 to 37 

F 2 

3 

H 


HBr 

485 to 6099 

HCN 

2. 8 to 10.5 

HC1 

61 to 1349 

HF 

5.7 to 27 

HI 

HE 


Source 

Atom with no rotational energy modes 
Obtained by fitting thermal conductivity data 


Reference 29 
Reference 29 b 
Reference 29 b 

Obtained by fitting thermal conductivity data 


Equation (44) using Z ro j.(N 2 ) as a reference 
Obtained by fitting thermal conductivity data 
Atom with no rotational energy modes 
Obtained by fitting thermal conductivity data 
Reference 29 b 
Reference 29 b 
Reference 29° 

Obtained by fitting thermal conductivity data 
Atom with no rotational energy modes 
Reference 29 b 


Equation (44) using Z rot (I 2 ) as a reference 


HE refers to Hirschf elder -Eucken approximation. 

’Calculations of theoretical collision numbers were extended to cover 
the temperature range shown in table VTTT . 
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TABLE IX. - Concluded. ROTATIONAL COLLISION NUMBERS 


Molecule 

Z f a 
rot 

Source* 5 

H 2 

12 

Obtained by fitting thermal conductivity data 

h 2 ° 

15 to 40 

Reference 29^ 

h 2 s 

168 to 3393 

Reference 29^ 

He 


Atom with no rotational energy modes 

*2 

1 

Obtained by fitting thermal conductivity data 

K 


Atom with no rotational energy modes 

Kr 



Li 



N 



nd 3 

12 to 193 

Reference 29 b 

nh 3 

16 to 235 

Reference 29^ 

NO 

2 

Obtained by fitting thermal conductivity data 

no 2 

3 


N 2 

8 


n 2 o 

3 


N 2°4 

1 

Equation (44) using z ro j-(N0 2 ) as a reference 

Na 


Atom with no rotational energy modes 

Ne 


Atom with no rotational energy modes 

0 


Atom with no rotational energy modes 

OH 

8 

Estimated 

°2 

8 

Obtained by fitting thermal conductivity data 

Rb 


Atom with no rotational energy modes 

SF 6 

1 

Obtained by fitting thermal conductivity data 

so 2 

28 to 657 

Reference 2 ^° 

SiF 4 

1 

Obtained by fitting thermal conductivity data 

SiH 4 

9 

Equation (44) using z ro j-(CH 4 ) as a reference 

UF 6 

2 

Equation (44) using z ro ^(SFg) as a reference 

Xe 


Atom with no rotational energy modes 


a HE refers to Hirschfelder-Eucken approximation. 
^Calculations of theoretical collision numbers were extended to 
cover the temperature range shown in table VUI. 
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LINK 0 


T 

LINK (main program) (7825) 

GAUSS (386) 

1 


LINK 1 


T 

MAIN (1068) 

I 

REACT (606) 

I 

SEARCH (644) 

I 

HCALC (433) 

! 

SAVE (411) 

EQLBRM (1964) 

I 

CPHS (167) 

I 

MATRIX (741) 

I 

OUT1 (1118) 

I 

VARFMT (86) 
EFMT (186) 
THERM P (1375) 

I 

ROCKET 11093) 

I 

RKTOUT (563) 

t 

FROZEN (254) 

I 

SHCK (1658) 

I 

DETON (1131) 
x 


LINK 2 1 


TRANS P (15 183) 

I 

INPUT (1029) 

I 

OUT (1239) 
tLGRNGE (285) 


Figure 1. - Overlay structure of TRAN72 computer program for IBM 7094. 


Preceding page blank 

PRESIDING PAGE BLANK MOT FILMED 
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Figure 2. - Main program LINK. 
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X's.X 

/ END in X 
card columns 

V*? 3 / 


m 

( return' 


1303/ X 

/TV.UV.X^No 

/or 5V problem/ - 


P(i)=pressure in 
atmospheres 
H....NP 


THERM OX Yes 


Read card 
I with T j 
l intervals 


Read remaining 
, three cards , 
\ for species / 


VOL=.T. 

VL(i>= PliHVliH 1/RHCKi) 
(volume in cm’/g) 
i= 1, N P 

TP=TV, HP'UV, SP=SV 


/ TP, HP X. 
SP,TV,UV, or) 

\ S ,V 


I Subroutine \ 

f THERM P 1 
(control for TP, HP, 
l SP, TV,... j 
\ problems) / 


^REACTANTS' 


( ’ Subroutine \ 
REACT \ 
(Read and processJ 
i reactant cards) / 


T(ihTemperature in K, HI,. ..NT 
OXF(ihMIX(iW)/F values, H....NOF 
If (IONS) add E to elements 


Subroutine 

DETON 

(control for DETN 
problems) 


OMIT \Yes 


I |No 


INSERTXYes 


Write: ERROR IN 
! ABOVE CARD. , 


205 

Store species 

► names in 
OMIT array 

180 

Store species 
names in 

► ENSERT array 
NSERT=number 
of species 


210 

\ Read and / 

Clear namelist 

\ write / 

" INPT2 variables 

\ namelist / 
\ INPT2 / 


i Read and write / 
\ TRANSPORT / 
\ data on r 
\ tape 4 / 


/Condensed 
reactant in 
DETN or SHOCK 
\ problem? / 


I Write: i 

(CONDENSED REACTANTS 
\ NOT PERMITTED IN / 
\ DETN OR SHOCK / 
\ PROBLEMS 


Have \ 
/ REACTANTS N 
cards been read 
/newr^.t.)/ 


Subroutine \ 
SEARCH \ 
(pull THERMO data 
from tape 4) 

[ (NEWR-. F. ) 


Subroutine 

ROCKET 

(control for RKT 
problem) 


( Subroutine \ 
SHCK \ 
(control for SHOCK J 
problem) 


Set initial estimates: 

ENN=. 1.ENNL--2. 3025851 
EN(J, IK l/(no. of gases) 
IUSEIJHO for gases 
IUSE(J)> 0 for species on 
INSERT cards 
IUSEUKO for other con- 
densed phases) 

I >1,... NS (number of species) 



Figure 3. - Subroutine MAIN. 


OS 

CO 













Enter 
from LINK 


13_j 

( Read ID card 
of TABLE | 
from logical 1 
V tape 3 


Search EN(J,N) 
for an 

EN > TESTEN 


ID card identifies the 
interaction for the transport 
(or relaxation) data which 
follow immediately. 

TABLE refers to the table of 
transport (or relaxation) data 
which were identified by the 
ID card. 


''species the same' 
as first species . 
\on ID card/ 


/ Finished \ 
all NS species 
«and NPT points, 
\ ? / 


Read TABLE 
from logical 
tape 3 


/ Does N. 
/second specie^ 
on ID card 
have EN> TESTEN 

N at the same / 
sN point?/ 


,0 > 

Jhfes 



Store 

- information Li - 

/it LAST\ No 

/ Read TABLE / 


on card 

\ard/ 

\ tape 3 \ 

17 1 


Store 
TABLE of 
data 


/Do TABLES\ 
of data exceed 
allowed 

s \storage?/ 


19 

Write: 

TABLES OF TRANSPORT, 
(AND RELAXATION DATA/ 
\ ARE FILLED / 
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Subroutine 
GAUSS 
IMAT-NM 
(solution of 
equations) 


27 


Calculate 
matrix 
elements for 

^mixture 


1 ». 

Calculate 
ijjj for all 
interactions 


[26 

Calculate 
Cp/R and 

H/RT for 
individual 
species 


Subroutine 
INPUT 
(sets up 

l transport input)/ 


Set current 
temperature 
and pressure 
TT-TTT(N) 
PP-PPP(N) 


Write 
37 \ error 
message 



Subroutine 

OUT 

(controls 

transport 

output) 



Calculate 
matrix 
elements for 

fyrans 

40 

Subroutine 
GAUSS 
IMAT-NM 
(solution of 
equations) 


Calculate 

i-l 



/ Subroutine OUT\ 
{ (controls / 
^transport output)/ 


105 





Calc 
rema 
ansi 
(M, Pr, 



ulate 

ining 

ivers 

Le,...) 

91 

75. 


Calculate 

_ V 

r£(a 

i-l 

^reaction" 

Hj/RT)Xj 



Subroutine 
GAUSS 
1MAT-NR 
(solution for 
equations) 


Calculate matrix 
elements for 

c p, reaction 
ant * ^reaction 


59 

101 



Calculate 
c p, reaction * 

V 

R Y, (AHj/RTlXj 
i-l 

67 


/ Subroutine \ 
/ GAUSS 

' IMAT-NR 

\ (solution for 
\ equations) / 

V 






Subroutine TRANSP. 
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Figure 5. - Subroutine INPUT. 


k m k, m u u m m k 


\ 
















































Enter 

from fig. 5 


LL=NLM+1 

NR=NM-NLM 


Set up initial set of 
equations as the 
chemical reactions 
of formation 


Initialize 
STCfK, L>0. 0 
K= 1, 17 
L-l, 20 

flo 


Search for 
trace species 


Set up initial STC array 
from A array 
STCfK, I)=-1.0 
STCfK, L)=A(L,J) 

J= INDf I) I=LL, NM 
L= 1, NLM 

K=K+1 for each 1=1+1 


XS(I)<10"^> 

Trace 

Yes species 
97 , found 


Locate first reaction 
which includes 
trace species 


STCfJ, I) 
^0.0?^ 


STCFfL, K)= STCfJ, K) 
K'l, NM 


Solve reaction for the 
trace species. Substitute 
into all succeeding reactions 
which include the trace 
species, thereby eliminating 
the trace species from all 
reactions. 


STCFfL, K)= STCfJ, K) 

K = I, NM 
t 89 
87 

STCfJ, K)= 

(STCfJ, KI/COEFF) -STCOEF(K) 
K=l, NM 


COEFF= STCfJ, I) 
fNo “ 


_Y£^STC(J, IK' 

\o.o?^ 


J>NR^ 

SSS TYeT 


Start search for 
next trace species 


STCfJ, I)=STCF(J,I) 
1=1, NM 
J=l, NR 


STCOEF(K)= 
STCfJ, KI/COEFF 
K-l, NM 


96 * 


( Return A 


V to fig. 5 J 



95 


fc COEFF= STCfJ, I) 

Set COEFF equal 
to stoichiometric 
coefficient of 
trace species 


Figure 6. - Rewrite equations to eliminate trace species section in subroutine INPUT. 
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